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Erglacs 

The  Flight  Dynamics  Lab  at  Wright-Patterson  AFB  had 
procured  an  oculometer  and  two  SYM-1's  and  various  support 
equipment  to  collect  data  from  the  oculometer  and  present 
the  reduced  data  in  readable  form.  One  SYM-1  system  had 
been  set  up  and  initially  tested  but  the  oculometer  was 
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acquainted  with  the  SYM-1  and  write  the  necessary  software 
for  the  oculometer  data  collection  subsystem.  The  project 
was  ideal,  because  I  wanted  to  do  my  thesis  with  the  Flight 
Dynamics  Lab  and  I  also  desired  a  software  oriented  thesis. 

It  was  unknown  from  the  start  of  the  thesis  whether  the 
oculometer  would  be  operating  correctly  or  not.  Because  it 
was  not  operating  correctly  at  thesis  completion,  the 
software  was  developed  using  simulated  oculometer  data.  The 
data  was  as  realistic  as  possible  and  the  software  written 
to  be  easily  integrated  into  a  system  using  the  actual 
oculometer . 

I  would  like  to  thank  the  Flight  Dynamics  Lab, 
specifically  Mr.  Bill  Klotzback,  for  making  the  thesis 
possible  and  providing  all  the  support  and  equipment  I 
needed.  Thanks  also  to  Lt  Jay  Kirchoff  and  especially 
Lt  Rick  Benken,  without  whose  encouragement,  advice,  and 
help  the  SYM-1  wouldn't  have  been  so  cooperative  and  those 
rough  spots  would  have  been  a  lot  rougher. 
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Abstract 


A  SYM-1  microprocessor  with  dual  5  1/4  inch  disk  drives 
was  used  to  develop  software  to  gather  and  reduce  data  from 
a  Cubic-Foot  Remote  Oculometer  built  by  Honeywell,  Inc.  The 
primary  function  of  the  oculometer  is  to  measure  the  look 
direction  of  a  pilot's  eye  in  a  ground  cockpit  simulator. 
The  output  of  the  oculometer  used  for  this  effort  is  eye 
lookpoint  in  azimuth  and  elevation  and  whether  the  oculome¬ 
ter  is  tracking  the  eye  or  not.  The  line-of-sight  measure¬ 
ment  covers  a  viewing  field  of  plus  and  minus  30  degrees  in 
azimuth  and  zero  to  plus  30  degrees  in  elevation.  This 
viewing  field  is  broken  into  instruments  whose  boundaries 
are  defined  by  the  data  collection  subsystem. 

The  following  performance  measures  are  printed  out  at 
the  end  of  the  data  mission: 

1.  Total  dwell  time  on  each  instrument. 

2.  Mean  dwell  time  on  each  instrument. 

3.  Proportion  of  dwell  time  on  each  instrument. 

4.  Proportion  of  fixations  on  each  instrument. 

5.  Transition  probability  from  one  instrument  to 
another . 

6.  Number  of  fixes  per  minute  for  each  instrument. 

The  software  for  the  SYM-1  was  developed  modularly  with 
each  module  tested  separately  and  then  the  whole  subsystem 
tested.  Simulated  oculometer  data  was  used  to  test  the 
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software.  The  data  collection  subsystem  was  designed  to  run 
with  minimal  knowledge  and  nteraction  required  by  the 
user . 


I.  Introduction 


c. 


This  thesis  involves  the  development  of  software  to 
gather  and  reduce  the  output  of  a  device  called  an 
oculometer.  This  is  accomplished  with  a  SYM-1 
microprocessor  system.  The  following  paragraphs  briefly 
describe  the  operation  and  uses  of  the  oculometer,  and  the 
specific  application  addressed  by  the  thesis. 

An  oculometer  is  an  electro-optical  device  that  tracks 
the  eye  1 ine-of-sight  in  two  axes  without  interfering  with 
the  subject.  The  subject,  for  Air  Force  applications,  is  a 
pilot.  The  oculometer  can  be  used  either  in  a  ground  simu¬ 
lator  or  in  an  actual  aircraft  in  flight.  Uses  of  the 
oculometer  include  two-dimensional  tracking  where  the  eye 
line-of-sight  is  used  for  fire  control  system  control,  the 
evaluation  of  different  types  of  cockpit  landing  displays, 
quantifing  pilot  scan  patterns  during  various  phases  of 
flight,  and  testing  and  evaluating  different  types  of  air¬ 
craft  cockpit  displays. 

The  oculometer  used  for  this  thesis  was  the  "Cubic-Foot 
Remote  Oculometer"  built  by  Honeywell,  Inc  of  Lexington 
Massachusetts  (Ref  1). 

The  primary  function  of  the  oculometer  is  to  measure 
the  look  direction  of  the  subjects  eye  without  interfering 
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with  any  of  his  activities.  Information  on  pupil  diameter 
and  blink  rate  can  also  be  obtained. 

A  sensing  subsystem  illuminates  the  subject's  eye  and 
collects  information  on  the  eye's  orientation.  A  near- 
infrared  (IR)  illumination  source  and  an  IR-sensitive  TV 
camera  are  used  to  obtain  a  video  signal  which  contains  the 
necessary  information  about  the  eye.  The  IR  illumination 
causes  no  physical  discomfort  to  the  eye  and  does  not  cause 
the  pupil  diameter  to  decrease  appreciably. 

The  measurement  principle  of  the  eye  lookpoint  is  based 
on  the  fact  that  the  angular  direction  of  the  eye  is  propor¬ 
tional  to  the  position  of  the  corneal  reflection  of  the  IR 
light  source  relative  to  the  center  of  the  pupil.  The 
oculometer  can  locate  the  eye  and  track  it  throughout  a  one 
cubic  foot  motion  box. 

The  line-of-sight  measurement  of  the  oculometer  covers 
a  viewing  field  of  plus  and  minus  30  degrees  in  azimuth  and 
zero  to  plus  30  degrees  in  elevation.  The  average  error  in 
eye  tracking  is  approximately  one  degree.  The  oculometer 
must  be  calibrated  for  each  subject  to  eliminate  nonlineari¬ 
ties  in  the  viewing  field.  The  parameters  for  up  to  six 
pilots  can  be  stored,  so  the  subject  can  be  tested  again 
without  full  calibration  of  the  oculometer. 

The  output  of  the  oculometer  is  eye  lookpoint  in 
azimuth  and  elevation,  pupil  diameter,  and  whether  the  ocu¬ 
lometer  is  tracking  the  eye  or  not.  The  oculometer  loses 
track  of  the  eye  when  the  pilot  moves  his  eye  out  of  the 
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range  of  the  tracking  equipment.  For  example,  the 
oculometer  will  lose  track  of  the  eye  if  the  pilot  looks 
behind  him.  This  loss  of  track  is  called  an  out-of-track 
condition.  If  the  eye  image  is  lost,  automatic  search 
procedures  are  initiated  to  reaquire  it  (Ref  2,3)- 

Oculometer  measurements  are  useful  in  testing 
integrated  aircraft  displays  and,  coupled  with  flight  path 
and  control  input  data,  to  detect  subtle  differences  in 
piloting  techniques  during  simulated  flight  (Ref  q). 
Another  use  for  the  oculometer  is  in  the  placement  of  cock¬ 
pit  instruments.  Ground  and/or  flight  data  can  be  collected 
which  indicates  which  instrument  needs  to  be  in  the  center 
of  the  pilot's  field  of  view  (i.e.  the  instrument  most  often 
looked  at)  and  which  instruments  need  to  be  in  close  proxi¬ 
mity  (i.e.  two  instruments  which  have  a  high  number  of  tran¬ 
sitions  from  one  to  the  other)  (Ref  5).  The  oculometer  has 
been  used  to  evaluate  individual  displays  in  the  cockpit, 
and  to  evaluate  changes  in  displays  (Ref  6,7). 

The  Flight  Dynamics  Lab  at  Wright-Patterson  Air  Force 
Base,  Ohio  would  like  to  use  the  oculometer  during  12-18 
minute  ground  data  missions  in  flight  simulators  to  gather 
data  on  the  pilots  lookpoint  with  respect  to  cockpit  instru¬ 
ments,  or  segments  of  instruments.  The  data  will  be 
collected  and  analyzed  by  an  oculometer  data  collection 
subsystem.  This  data  will  be  used  for  cockpit  design  and 
analysis.  Presently,  the  oculometer  data  is  not  being 


gathered  or  reduced.  The  lab  requires  thesis  completion 
before  the  oculometer  output  can  be  utilized. 

The  problem  is  to  develop  an  oculometer  data  collection 
subsystem  that  will  collect,  reduce,  print  out,  and  store 
the  data  from  a  data  mission. 

The  following  performance  measures  need  to  be 
calculated  and  stored  for  each  mission: 

1.  Total  dwell  time  on  each  instrument  or  instrument 
section . 

2.  Mean  dwell  time  on  each  instrument  or  instrument 
section . 

3.  Proportion  of  dwell  time  spent  on  each  instrument 
or  instrument  section. 

M.  Proportion  of  fixations  on  each  instrument  or 
instrument  section. 

5.  Transition  probability  from  one  instrument  to 
another . 

6.  Number  of  fixes  per  minute  for  each  instrument  or 
instrument  section. 

The  performance  measures  will  be  printed  out  between 
data  missions. 
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The  oculometer  data  collection  subsystems  is  to  be  used 
in  a  ground  environment  in  a  cockpit  simulator.  The  use  of 
the  subsystem  in  the  airborne  environment  is  not  addressed. 

The  cockpit  can  be  subdivided  into  rectangular  or 
square  subsections  which  can  be  instruments,  segments  of 
instruments,  or  any  area  within  the  viewing  field  of  the 
oculometer.  The  subsections  are  defined  by  specifying  two 
diagonal  corners.  The  oculometer  subsystem  design  allows 
for  a  maximum  of  24  instrument  subsections  to  be  defined. 
For  an  additional  seven  subsections  to  be  defined,  there 
would  be  a  25  percent  increase  in  memory  space  required  and 
in  program  complexity.  Another  consideration  is  that  the 
amount  of  time  between  oculometer  inputs  is  16.67  msec.  The 
more  instrument  subsections  defined,  the  longer  is  the  time 
to  determine  the  instrument  number  for  each  oculometer  input. 

The  data  runs  are  planned  to  be  from  12-18  minutes 
long.  The  data  runs  are  broken  into  time  increments,  with 
each  time  increment  equalling  one  millisecond.  One 
millisecond  was  chosen  because  it  was  small  enough  to  allow 
accurate  timing  of  the  time  between  oculometer  data  samples, 
which  is  a  minimum  of  16.67  milliseconds.  A  data  run  of  18 
minutes  requires  1.08  x  105  time  increments.  This  requires 
a  minimum  of  three  SYM-1  eight  bit  words,  or  bytes. 
Therefore,  three  bytes  were  used  for  the  storage  of  timing 
information.  These  three  bytes  allow  for  data  missions  up 


to  279  minutes  long  (3  bytes  =  16,777215  time  increments  = 
279  minutes) . 


The  assumptions  are  that  the  oculometer  used  will  be 
the  Honeywell  Cubic  Foot  Oculometer  with  a  digital  X  and  Y 
direction  and  track/no  track  outputs,  and  that  the  data 
collection  subsystem  is  to  be  used  in  a  ground  cockpit 
simulator . 

General  Approach 

Two  SYM-1  single  board  microprocessors  were  available 
for  the  data  collection  subsystem.  The  original  concept  was 
to  have  one  SYM-1  gather  the  data  from  the  oculometer,  do 
some  preliminary  data  reduction,  and  pass  the  data  to  the 
second  SYM-1.  This  SYM-1  would  complete  the  data  reduction 
to  produce  the  final  tabular  form.  As  the  algorithms  were 
developed,  it  became  apparent  that  there  was  adequate  time 
available  between  data  inputs  from  the  oculometer  to  do  all 
data  reduction.  There  was  also  enough  random  access  memory 
(RAM)  available  on  one  SYM  to  store  the  data  reduction 
programs  and  the  final  reduced  data  table.  Therefore,  one 
SYM-1  was  used  for  the  data  collection  subsystem. 

The  data  collection  subsystem  algorithms  were  designed 
using  the  concepts  of  structured  design.  Structured  design 
is  a  disciplined  approach  to  algorithm  design  which 
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simplifies  system  design  by  partitioning  the  system  into 
"black  boxes"  and  organizes  these  boxes  hierarchically. 
Structured  design  produces  systems  that  are  easy  to 
understand,  reliable,  flexible,  long-lasting,  and  efficient 
to  operate  (Ref  8). 

Good  design  uses  the  concepts  of  partitioning  and 
organizing  the  pieces  of  the  system.  Partitioning  refers  to 
the  division  of  the  problem  into  small  subproblems.  Highly 
interrelated  parts  of  the  problem  should  be  in  a  single 
black  box.  A  black  box  is  a  component  with  known  inputs, 
known  outputs,  and  generally,  a  known  transform  but  the 
contents  of  the  box  don't  have  to  be  known  (Ref  9).  The 
modules  were  tested  with  simulated  data,  since  the 
oculometer  was  not  operational. 

Ssaiisncfi  al  .Presentation 

Chapter  II  describes  the  equipment  used  and  the 
configuration  of  the  equipment.  The  memory  map  for  the  SYM-1 
is  discussed.  Chapter  III  describes  how  the  subsystem  was 
developed  using  Pascal-like  statements,  a  data  flow  diagram 
for  the  overall  program  and  a  structure  chart.  Each  program 
module  is  discussed.  Chapter  IV  details  the  data  used  to 
test  each  module  and  Chapter  V  describes  the  testing  of  the 
overall  data  collection  subsystems.  Chapter  VI  describes 
subsystem  timing.  Chapter  VII  details  the  users  guide  for 
operation  of  the  subsystem  during  ground  data  missions. 


7 


II.  Equipment 


The  following  equipment  was  used  to  develop  the 
oculometer  data  collection  subsystem: 

One  SYM-1  single  board  microprocessor 
One  Hudson  Digital  Electronics  (HDE)  15  slot  19  inch 
cage  with  power  supply 
Four  HDE  8K  RAM  boards 
One  HDE  8K  EPROM  board 
One  parallel  input/output  board 
One  HDE  dual  5-1/4  inch  disk  drive  unit 
One  Hazeltine  1500  CRT  terminal 
Software : 

Editor/assembler  in  ROM 
Disk  operating  system 
Editor  on  disk 

This  equipment  was  purchased  for  the  subsystem  before 
thesis  start.  Appendix  A  shows  the  memory  map  of  the  SYM-1. 

The  unassembled  modules  are  loaded  into  the  Resident 
Assembler/Editor  from  disk  at  memory  locations  0200  (hex)  to 
14FF  (hex).  When  assembled,  the  modules  reside  at  memory 
locations  0000  (hex)  to  002F  hex),  1500  (hex)  to  224C  (hex) 
and  6000  (hex)  to  7000  (hex).  The  final  data  table  is  from 
6000  (hex)  to  63FF  (hex),  and  the  simulated  oculometer  input 
data  starts  at  6490  (hex).  The  Resident  Assembler  Editor 
and  the  SYM-1  stack  uses  memory  locations  0A00  (hex)  to 
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OFOO  (hex).  The  memory  locations  used  from  0000  (hex)  to 
0024  (hex)  are  used  for  zero  page  addressing.  The  actual 
program  is  not  stored  here.  The  modules  were  placed  back- 
to-back,  with  approximately  20  (hex)  memory  locations 
between  them. 

There  is  unused  memory  from  224D  (hex)  to  5FFF  (hex), 
7000  (hex)  to  7FFF  (hex),  and  9000  (hex)  to  9FFF  (hex). 


( 
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III.  Development  of  the  Program 

kensral 

This  section  describes  the  overall  subsystem  logic  and 
each  module.  The  program  was  developed  by  breaking  it  down 
into  a  series  of  modules,  and  developing  each  module  into  a 
subroutine.  Therefore,  the  main  program  is  merely  a  series 
of  calls  to  subroutines. 

The  data  flow  diagram  (DFD)  is  used  to  partition  a 
system  and  is  a  major  tool  of  structured  analysis.  A  DFD  is 
a  network  representation  of  a  system  showing  the  active 
components  and  the  data  interfaces  (Ref  8).  The  DFD  is  a 
tool  used  to  define  the  proposed  logical  system.  It  is 
useful  in  identifying  the  functions  of  a  system  and  the 
resultant  data  transformations  (Ref  9). 

The  basic  elements  of  a  DFD  are  called  transforms  and 
are  represented  by  circles.  A  transform  represents 
transformations  of  data  from  one  form  to  another.  The  data 
elements  themselves  are  labeled  arrows  going  into  the 
transforms  (Ref  10). 

Figure  1  shows  a  data  flow  diagram  for  the  subsystem. 
Each  module  is  represented  by  a  transform  with  the  data 
passed  between  modules  represented  by  the  data  elements. 

Structure  charts  are  an  integral  part  of  structured 
design  methodology.  A  structure  chart  shows  the 
partitioning  of  a  system  into  modules,  the  hierarhy  and 
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Subsystem  Data  Flow  Diagram 


organization  of  modules,  the  communication  between  modules, 
and  the  functions  of  the  modules  (Ref  8,11). 

Each  module  is  represented  by  a  rectangle  identified  by 
a  name.  Modules  are  connected  by  arrows.  A  data  element 
passed  between  two  modules  is  shown  by  an  arrow  with  an  open 
circle,  and  control  communication  by  an  arrow  with  a  solid 
circle.  A  major  decision  between  two  or  more  modules  is 
designated  by  a  diamond,  and  a  major  loop  by  a  semicircle. 

Figures  2  and  3  are  the  structure  charts  for  the  Main 
module  and  the  Print  Results  module. 

A  data  dictionary  is  used,  among  other  things  to 
establish  a  glossary  of  terms,  to  provide  standard 
terminology  and  define  all  terms,  to  provide  cross-reference 
capability,  and  to  resolve  problems  associated  with  aliases 
and  acronyms  (Ref  11).  The  Initialization  module  defines 
the  address  for  all  variables  used  by  two  or  more  modules 
called  by  the  Main  module.  The  remaining  variables  are 
declared  locally  in  the  declaration  section  of  each  module. 
Therefore,  the  declaration  section  of  each  module  serves  as 
a  data  dictionary. 

Each  module  is  discussed,  with  a  Pascal-like 
description  in  Appendix  C  and  the  assembly  language 
implementation  in  Appendix  D. 


Reduce  Data  Samples 


Fig  2.  Structure  Chart  For  Main  Module 
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Structure  Chart  for  Print  Results  Module 


Main  Subaxalam  Module 


The  Initiation  module  is  called  by  the  Main  module  once 
at  the  start  of  the  data  mission.  Modules  Store  Data,  Add 
Timing,  Determine  Instrument  Number,  Compare  Data  Samples, 
and  Create  Table  are  called  by  the  Main  module  each  time  a 
data  sample  comes  from  the  oculometer.  Module  Print  Results 
is  run  separately  when  the  data  mission  is  complete.  The 
Main  module  also  has  a  timing  loop  to  simulate  the  time 
between  occulometer  data  samples.  The  timing  loop  is  appro¬ 
ximately  20  milliseconds  long.  At  the  end  of  the  loop,  the 
Store  Data  (Simulated)  module  is  called,  followed  by  Add 
Timing,  Determine  Instrument  Number,  Compare  Data  Samples 
and  Create  Table.  Then  the  Main  module  checks  to  see  if  it 
is  at  the  end  of  the  array  containing  the  simulated 
oculometer  inputs  (see  module  Store  Data).  If  not,  the 
timing  loop  is  executed  again  and  the  process  repeated. 

Appendix  C  describes  the  module  in  Pascal-like  state¬ 
ments.  Appendix  D  lists  the  assembly  language  implementation 
of  the  module. 

McfiLului  Initialize  ianameiens 

This  module  is  called  by  the  Main  module  before  the 
actual  data  mission  begins.  It  initializes  parameters  used 
in  various  modules  and  creates  a  ’'grid"  of  values  that 
defines  the  boundaries  of  the  instruments,  or  segments  of 
instruments.  The  grid  parameters  were  simulated  because 
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actual  oculometer  data  were  not  available.  If  the 
oculometer  was  available,  the  grid  parameters  would  be 
obtained  by  having  the  subject  look  at  the  four  corners  of 
each  instrument,  and  storing  the  parameters  with  the 
associated  instrument  number. 

Table  1  shows  each  of  the  parameters,  or  program 
variables,  that  are  initialized,  the  module(s)  that  uses  the 
parameter,  and  the  value  the  parameter  is  initialized  to. 
GRID  represents  the  grid  parameters  that  were  simulated. 

The  SY6522  timer  is  initialized  by  the  module  and 
starts  counting  the  number  of  time  increments  that  have 
passed  from  the  beginning  of  the  data  mission.  The  SY6522 
is  initialized  so  it  interrupts  every  65  milliseconds,  or 
every  65  time  increments.  At  each  interrupt,  65  is  added  to 
LOTIM,  MITIM,  and  HITIM.  These  are  three  bytes  that 
represent  the  number  of  time  increments  from  the  beginning 
of  the  data  mission  to  the  last  interrupt.  The  interrupt 
routine  is  in  the  module. 

The  module  also  establishes  the  addresses  for  all 
variables  used  by  two  or  more  modules.  Variables  used  by 
only  one  module  are  declared  inside  that  module. 

Appendix  C  describes  the  module  in  Pascal-like 
statements.  Appendix  D  lists  the  assembly  language 
implementation  of  the  module. 
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Subsystem  Variable  Ini tialization 


Variable 

LSTRT1 

LSTRT2 

LSTRT3 

LASTIN 

LOTIM 

MITIM 

HITIM 

TABLET 

TABLE2 

TABLE3 

TABLE4 

OLDIN 


Module<s)  Initialization 

Hiai  UL&fi  .Variable  Valua  £s&fixici<ion 


Compare  Data 
Samples 


00 


Start  time 
of  last  data 
sample 


Compare  Data 
Samples 


Add  Timing 
Information 


Create  Table 


00  Last  data 

sample 
instrument 
number 

00  Number  of 

time  incre¬ 
ments  since 
beginning  of 
data  run 

00  Initialize 

final  data 
table  to 
zero 


Create  Table  00  Last 

instrument 
number 
through 
create  table 


Mfldalai  Sfcor.e  Caia 


This  module  is  called  by  the  Main  module  every  time  a 
data  sample  comes  from  the  oculometer.  Because  the 
oculometer  data  is  simulated,  the  Main  module  calls  the 
Store  Data  module  using  a  timing  loop. 

The  oculometer  output  is  X  eye  direction  (10  bits),  Y 
eye  direction  (10  bits),  and  track/out-of “track  status 
(1  bit).  This  output  is  called  the  current  data  sample. 

When  the  oculometer  is  used,  the  X  and  Y  eye  direction 
is  obtained  from  a  connector  on  the  back  of  the  oculometer. 
Appendix  B  is  the  pin  connections  for  the  connector.  The 
outputs  for  pupil  diameter  are  not  used. 

The  oculometer  is  considered  to  be  "in  track"  if  it  is 
tracking  the  eye.  If  the  oculometer  loses  track  of  the 
light  reflection  off  the  back  of  the  eye,  either  due  to  the 
pilot  blinking  or  moving  his  eyes  outside  the  tracking  area 
of  the  oculometer,  the  oculometer  is  out-of-track.  An  out- 
of-track  condition  is  a  logic  0  on  the  track/out-of-track 
status  line.  When  the  oculometer  is  out-of-track,  the  X  and 
Y  eye  direction  remains  the  same  as  the  last  output  before 
the  oculometer  went  out-of-track. 

The  X  direction  is  stored  as  2  bytes,  Y  direction  as  2 
bytes,  and  track/out-of -track  status  as  1  byte.  The 


oculometer  represents  negative  numbers  in  two's  complement 
form.  Therefore,  if  the  10th  bit  from  the  oculometer  is  a 


zero,  the  number  is  positive,  and  if  the  10th  bit  is  one, 
the  number  is  negative. 

Two  Store  Data  modules  were  developed.  Store  Data 
(Oculometer)  was  designed  to  be  used  with  the  actual 
oculometer.  This  module  stores  X  and  Y  eye  direction  in  M 
bytes  by  filling  in  bits  11  through  16  of  the  high  byte  of 
each  with  either  one's  or  zero's,  depending  on  whether  the 
number  is  positive  or  negative.  It  also  stores  track/out- 
of-track  status  as  a  one  or  a  zero.  These  5  bytes  of  infor¬ 
mation  are  passed  to  the  next  module,  Add  Timing. 

The  second  module  is  Store  Data  (Simulated).  This 
module  reads  simulated  X  and  Y  eye  direction  data  and 
track/out-of-track  status  from  memory  and  stores  them  in  the 
same  5  bytes  as  the  Store  Data  (Oculometer)  module. 

Appendix  C  describes  both  modules  in  Pascal-like 
statements.  Appendix  D  lists  the  assembly  language 
implementation  of  Store  Data  (Simulated). 

Mndnlai  Add  liming 

This  module  adds  the  necessary  timing  information  to 
the  X  and  Y  eye  direction  and  track/out-of-track  status  from 
the  Store  Data  module.  The  timing  information  which  is 
added  is  three  bytes  that  represent  the  number  of  time 
intervals  that  have  elapsed  from  the  beginning  of  the  data 
mission  to  the  time  of  the  data  sample.  One  time  interval 
is  equal  to  1  millisecond. 
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A  SY6522,  Versatile  Interface  Adapter,  is  used  for  the 
timing  of  the  data  mission.  The  device  is  programmed  to 
interrupt  the  SYM  every  65  milliseconds.  The  SY6522  is 
initialized  in  the  Initialization  module  and  started  at  the 
beginning  of  the  data  mission.  Every  time  the  SY6522 
interrupts,  65  is  added  to  three  bytes  that  represent  the 
number  of  time  intervals  that  have  elapsed  since  the  start 
of  the  data  mission.  These  three  bytes  are  named  LOTIM, 
MITIM,  and  HITIM. 

When  Add  Timing  is  called,  the  current  2-byte  value  of 
the  SY6522  counter  is  read.  This  counter  counts  down  from 
65000  to  zero,  interrupts  at  zero,  and  automatically  reloads 
65000  back  into  the  counter  and  repeats  the  process.  Each 
count  down  takes  1  microsecond,  therefore  the  counter  will 
interrupt  every  65  milliseconds.  Add  Timing  reads  the  2- 
byte  counter,  divides  the  counter  value  by  1000,  subtracts 
from  65  to  get  the  number  of  milliseconds  that  have  passed 
since  the  last  SY6522  interrupt,  adds  this  value  to  the 
three  bytes  LOTIM,  MITIM,  and  HITIM,  and  stores  the  resul¬ 
tant  3  bytes  with  the  X  and  Y  direction  information  of  the 

I 

current  data  sample. 

Therefore,  at  the  end  of  the  Add  Timing  module,  the 
current  data  sample  consists  of  X  and  Y  eye  direction, 
track/out-of-track  status,  and  three  bytes  that  represent 
the  number  of  time  intervals  from  the  start  of  the  mission 
to  the  current  data  sample. 
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Appendix  C  describes  the  module  in  Pascal-like 
statements.  Appendix  D  lists  the  assembly  language 
implementation  of  the  module. 

Module;  Determine  laatmmfiJifc  lLumk££ 

This  module  takes  the  X  and  Y  eye  direction  and 
track/out-of- track  status  of  the  current  data  sample  and 
defines  an  instrument  number  for  the  sample.  The  timing 
information  of  the  data  sample  remains  unchanged. 

A  grid  is  created  in  the  Initiation  module  that  defines 
the  boundaries  for  the  cockpit  instruments,  or  segments  of 
instruments.  Each  instrument  is  defined  by  the  coordinates 
of  the  four  corners  of  the  instrument.  The  grid  has  a 
format  of  upper  X,  lower  X,  upper  Y,  lower  Y,  and  instrument 
number  for  each  instrument  (Fig  2). 

The  coordinates  are  2  bytes  each.  Each  instrument's 
boundaries  are  defined  in  the  grid.  The  order  in  which  the 
instrument  boundaries  are  stored  in  the  grid  is  not 
important.  If  both  the  upper  and  lower  values  of  X  or  Y  are 
negative,  the  "lower"  value  is  defined  as  the  lower  of  the 
absolute  values.  For  example,  if  the  X  coordinates  of  the 
instrument  are  -5  and  -7,  -5  is  the  upper  X  value  and  -7  is 
the  lower  X  value.  An  instrument  boundary  cannot  cross  the 
Y  axis.  If  an  instrument  does,  the  instrument  must  be 
broken  into  two  sections. 
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Fig  4.  Instrument  Boundaries 


The  instrument  boundary  coordinates  are  read  and 
compared  to  the  X  and  Y  eye  direction  values  to  see  if  they 
are  within  that  instrument.  If  they  are,  that  instrument 
number  is  assigned  to  the  current  data  sample.  If  not,  the 
next  instrument  boundary  coordinates  in  the  grid  are 
compared  to  the  X  and  Y  eye  direction  value.  If  the  X  and  Y 
eye  direction  values  are  not  within  any  of  the  defined 
instruments,  the  instrument  number  defined  as  no  instrument 
is  assigned  to  the  present  data  sample. 

If  the  present  data  sample  is  out-of- track,  no 
instrument  boundary  comparisons  are  made  and  the  instrument 
number  for  the  present  data  sample  is  zero. 

At  the  completion  of  the  Determine  Instrument  Number 
module,  the  present  data  sample  consists  of  an  instrument 


c. 


number  (1  byte)  and  the  timing  information  that  represents 
the  number  of  time  intervals  since  the  beginning  of  the  data 
mission  (3  bytes). 

Appendix  C  describes  the  module  in  Pascal-like 
statements.  Appendix  D  lists  the  assembly  language 
implementation  of  the  module. 

This  module  compares  the  last  data  sample's  instrument 
number  to  the  present  data  sample's  instrument  number. 

If  the  instrument  numbers  are  the  same,  the  current 
data  sample  is  disregarded  because  the  pilot  is  still  on  the 
same  instrument. 

If  the  two  instrument  numbers  are  different,  the  start 
time  (3  bytes)  of  the  last  data  sample  is  subtracted  from 
the  start  time  of  the  current  data  sample  (3  bytes).  The 
result  is  the  total  number  of  time  increments  spent  on  the 
instrument  of  the  last  data  sample  (3  bytes).  This  total 
number  of  time  increments  and  the  associated  instrument 
number  is  sent  to  the  Create  Table  module.  Then  the  current 
data  sample  becomes  the  last  data  sample  in  preparation  for 
the  next  data  sample  to  go  through  the  module. 

Appendix  C  describes  the  module  in  Pascal-like 
statements.  Appendix  D  lists  the  assembly  language 
implementation  of  the  module. 


23 


Module.:  Create  lafcle 


This  module  takes  each  data  sample  and  places  the 
information  in  a  final  data  table.  The  data  sample  consists 
of  an  instrument  number  (INSTNM)  and  the  number  of  time 
increments  spent  on  that  instrument  (T0TIM1,  T0TIM2, 
T0TIM3) . 

The  purpose  of  the  table  is  to  reduce  the  data  to  a  form 
that  enables  the  calculation  of  the  performance  parameters. 

The  table  is  divided  into  four  sections:  TABLE1 , 
TABLE2,  TABLE3,  and  TABLE4.  Each  table  contains  seven  rows. 
Each  row  contains  information  for  an  instrument,  blink, 
glitch,  or  data  gone.  A  "glitch"  is  any  data  sample  where 
the  number  of  time  increments  is  less  than  or  equal  to  50. 

A  "blink"  is  a  data  sample  with  an  instrument  number  of  zero 
(an  out-of-track  condition)  and  the  number  of  time 
increments  between  50  and  183.  "Data  gone"  is  a  data  sample 
with  an  instrument  number  of  zero  and  the  total  number  of 
time  increments  greater  than  183. 

Table  2  shows  the  organization  of  the  information  in 
the  data  tables.  Table  3  shows  the  format  of  each  of  the 
rows.  A  '$'  in  front  of  a  number  means  the  number  is  in 
base  16.  A  "no  instrument"  condition  is  defined  as 
instrument  number  25.  Therefore,  24  instruments  can  be 
defined.  The  total  number  of  fixations  is  the  number  of 
times  the  instrument  was  looked  at.  The  accumulated  time  is 
the  total  amount  of  time  spent  on  that  instrument. 


Table  II 


Final  Data  Table  Row  Organization 
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Table  III 

Final  Data  Table  Column  Organization 


Byte 

Iijuab.gr 

0  data  gone 

1-25  instruments  1  through  25 

26,  27  unused 

28  low  byte  of  accumulated  time 

29  middle  byte  of  accumulated  time 

30  high  byte  of  accumulated  time 

31  low  byte  of  total  number  of  fixations 

32  high  byte  of  total  number  of  fixations 

33  unused 
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Appendix  C  describes  the  module  in  Pascal-like 
statements.  The  module  first  determines  if  the  current  data 
sample  is  a  glitch.  If  it  is,  the  glitch  row  is  updated. 
If  it  is  not  a  glitch,  it  next  looks  at  the  instrument 
number.  If  the  instrument  number  is  a  zero,  either  the 
blink  or  data  gone  row  is  updated.  If  it  was  data  gone,  the 
instrument  number  of  the  current  data  sample  becomes  the 
"last  instrument  number"  (OLDIN).  OLDIN  was  the  last 
instrument  looked  at.  This  is  used  so  the  probability  of 
transitioning  from  one  instrument  to  another  can  be  calcu¬ 
lated  in  the  final  module.  If  the  instrument  number  was  not 
zero  (and  it  is  not  a  glitch),  the  appropriate  row  for  that 
instrument  is  updated  and  the  instrument  number  of  the 
current  data  sample  becomes  the  last  instrument  number. 

Updating  a  row  consists  of  incrementing  the  number  of 
fixations,  incrementing  the  column  that  corresponds  to  the 
current  last  instrument,  and  adding  the  number  of  time 
increments  of  the  current  data  sample  to  the  accumulated 
time . 

Appendix  D  lists  the  assembly  language  implementation 
of  the  module. 
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Mfldulfi-i  Print  Iteaulka 

This  module  prints  our  the  performance  measures  using 
module  prints  out  the  performance  measures  using  the  data  in 
the  Final  Data  Table.  In  the  following  paragraphs,  each  of 
the  performance  measures  are  discussed. 

1.  Total  dwell  time  on  each  instrument.  The  three 
byte  accumulated  time  (byte  numbers  28,  29  and  30,  see  Table 
3)  is  printed  out  for  instruments  1  through  25,  data  gone, 
blink  and  glitch. 

2.  Mean  dwell  time  on  each  instrument.  The 
accumulated  time  for  an  instrument  is  divided  by  the  total 
number  of  fixations  for  that  instrument.  This  value  is  the 
mean  dwell  time  for  that  instrument.  The  mean  dwell  time  is 
printed  out  for  instruments  1  through  25,  data  gone,  blink 
and  glitch. 

3.  Proportion  of  dwell  time  on  each  instrument.  The 
accumulated  times  for  instruments  1  through  25  is  added  up 
and  called  total  time  (T0TIM1,  2  and  3).  The  accumulated 
time  for  an  instrument  is  divided  by  total  time  to  get  the 
proportion  of  dwell  time  on  an  instrument. 

4.  Proportion  of  fixations  on  each  instrument.  The 
total  number  of  fixations  for  instruments  1  through  25  is 
added  up  and  called  total  fixations  (T0TFIX1  and  2).  The 
total  number  of  fixations  for  an  ins  ument  is  divided  by 
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total  fixations  to  get  the  proportion  of  fixations  on  an 
instrument . 

5.  Transitions  from  one  instrument  to  another.  For 
each  instrument  1  through  25,  data  gone,  glitch  and  blink, 
the  number  in  the  column  for  each  instrument  (columns  1 
through  25,  see  Table  3)  is  printed. 

6.  Number  of  fixes  per  minute  for  each  instrument. 
The  total  number  of  fixations  for  each  instrument  is  divided 
by  the  total  number  of  minutes  in  the  mission. 


Floating  point  routines  are  used  for  division  and 
decimal  output  operations  in  performance  measures  1, 2,3,4 
and  6.  The  routines  used  were  derived  from  floating  points 
routines  found  in  Reference  12.  Performance  measure  5 
requires  the  data  in  the  table  to  be  printed  out  in  decimal 
format.  The  routine  to  convert  from  binary  to  decimal  was 
found  in  Reference  13. 

A  description  of  the  module  in  Pascal-like  statements 
is  in  Appendix  C  with  the  assembly  language  implementation 
in  Appendix  E.  Examples  of  the  final  printout  are  in 
Section  V. 


IV.  Module  Validation 

The  validation  of  each  individual  module  is  discussed 
in  this  section.  A  few  of  the  modules  were  tested  together, 
but  most  of  the  modules  were  developed  and  validated 
independently.  The  validation  of  the  total  subsystem  is 
discussed  in  Section  V. 

Testing  is  an  important  part  of  any  software 

development  program.  Testing  is  done  with  the  intent  of 

finding  errors.  There  are  two  major  catagories  of  testing: 

black-box  testing  and  white-box  testing.  In  black-box 

testing,  the  tester  views  the  program  as  a  black  box  and  is 

unconcerned  with  the  internal  structure  of  the  program.  It 

is  also  known  as  i nput/out,put  driven  testing  because  the 

tests  are  derived  solely  from  the  specifications.  White-box 

* 

testing  uses  knowledge  of  the  internal  structure  of  the 
program.  The  test  cases  examine  the  program's  logic. 

Because  it  is  impossible  to  test  every  possible  input 
case,  a  test  of  any  program  must  be  necessarily  incomplete. 
Therefore,  the  test  cases  should  try  and  detect  the  most 
errors  possible.  There  are  various  methodologies  used  to 
intelligently  select  test  cases.  The  methodologistics  that 
were  used  in  the  thesis  are  described  briefly  below. 

White-box  testing  is  also  called  logic  coverage 
testing.  The  logic  coverage  testing  used  is  called  decision/ 
condition  coverage.  This  type  of  testing  ensures  that: 
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1 .  every  statement  is  executed  at  least  once 

2.  each  decision  has  a  "true"  and  a  "false"  outcome  at 
least  once 

3.  each  condition  in  a  decision  takes  on  all  possible 
outcomes  at  least  once. 

Three  types  of  black  box  testing  were  used:  equivalence 
partitioning,  boundary-value  analysis  and  error  guessing. 

In  equivalence  partitioning,  a  subset  of  all  inputs  is 
chosen  that  has  the  highest  probability  of  finding  all 
errors.  This  is  accomplished  by  picking  test  cases  that 
reduce,  by  more  than  one,  the  number  of  test  cases  that  must 
be  developed,  and  that  cover  a  large  set  of  other  possible 
test  cases. 

Boundary-value  analysis  examines  input  and  output 
boundary  conditions.  The  boundaries  are  near  the  edges  of 
the  input  and  output  equivalence  classes. 

Error  guessing  is  largely  an  intuitive  process.  Test 
cases  are  designed  using  intuition  and  experience  to  try  and 
expose  certain  probable  types  of  errors  (Ref  14). 

Decision/condition  coverage  was  used  to  test  all  the 
modules.  Other  tests  used  are  stated  in  the  test 
descriptions  of  each  module. 
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Module.;  Main 


The  Main  module  was  tested  with  the  Initialization  and 
Store  Data  modules.  The  Main  module  prints  out  a  prompt  to 
start  the  data  mission,  calls  all  other  modules  (except 
Print  Results)  and  executes  a  timing  loop  to  simulate  the 
time  between  data  samples.  Therefore,  the  validation  of 
this  module  consisted  of  the  following; 

1.  The  proper  response  to  the  prompt  is  the  letter 
's'.  Other  letters  were  input  to  determine  if  only  an  's' 
would  start  the  data  mission  (boundary  value  testing  and 
equivalence  partioning). 

2.  The  timing  loop  was  tested  during  the  Timing  module. 
The  output  of  the  Timing  module  was  examined  to  determine  if 
the  timing  loop  was  operating  correctly. 

3.  The  subroutine  calls  to  each  subroutine  were  added 
to  Main  one  at  a  time.  As  each  module  was  added,  the  output 
of  that  module  was  examined  to  determine  if  the  module  was 
operating  correctly.  The  modules  were  added  in  the  order 
they  are  called. 

MasiiiXfij.  Initial i&afclflu 

The  Initialization  module  establishes  addresses  for 
variables  used  by  two  or  more  modules,  initializes  the 
SY6522  counter  and  initializes  various  variables  to  zero. 
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Equivalence  partitioning  and  error  guessing  techniques  were 
used . 

For  all  variables  initialized,  the  memory  locations 
were  examined  to  ensure  their  contents  were  correct. 

Correct  operation  of  the  SY6522  Counter  was  examined  in 
the  Add  Timing  module. 

Module :  Store  Data 

This  module  merely  stores  the  X  and  Y  eye  direction  and 
track/out-of-track  status.  For  the  oculometer  simulation, 
simulated  data  was  stored  at  specified  memory  locations  and 
read  by  the  Store  Data  module.  Equivalence  partioning  was 
used.  Verification  of  this  module  consisted  of  examining 
the  memory  locations  for  X  and  Y  eye  direction  and 
track/out-of-track  status  to  verify  that  the  simulated  data 
was  being  read  correctly. 

Mfldulsi.  Md  liming 

The  Add  Timing  module  uses  a  division  subroutine  that 
divides  a  two-byte  dividend  by  a  two-byte  divisor  (which  was 
1000  for  this  application)  to  get  a  two-byte  quotient  and  a 
two-byte  remainder.  Only  the  quotient  is  used  by  Add 
Timing.  The  divisor  is  1000  because  the  timing  information 
from  the  SY6522  is  in  microseconds,  and  the  time  increment 
desired  is  milliseconds. 
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The  test  cases  for  the  division  subroutine  are  shown  in 
Appendix  E.  These  cases  use  the  equivalence  partitioning 
technique.  The  division  subroutine  was  developed  and  tested 
separately  and  then  used  in  Add  Timing. 

Appendix  E  also  shows  the  test  data  from  Add  Timing. 
An  18  msec  loop  was  executed  and  at  the  end  of  the  loop,  the 
number  of  time  increments  from  the  beginning  of  the  data 
mission  was  determined  and  stored  and  the  timing  loop  was 
executed  again.  The  module  also  tested  the  SY6522  counter 
interrupt  routine.  The  SY6522  was  started  at  the  beginning 
of  the  module  and  kept  track  of  the  elapsed  time  intervals. 
These  test  cases  were  acquired  from  equivalence  partitioning 
and  error  guessing  techniques. 

Module.;  He^ermne  Insixum&nt  flumder 

This  module  determines  an  instrument  number  for  each 
data  sample  from  the  X  and  Y  eye  direction  data  and  the 
track/out-of-track  status.  Data  samples  were  simulated  and 
instrument  numbers  determined.  Boundary  value  and 
equivalence  partitioning  tests  were  conducted.  Appendix  E 
contains  the  test  data  samples  examined  and  the  test 
instrument  boundaries  used. 

Module :  Compare  Data  Samples 

This  module  compares  the  present  data  sample  to  the 
last  data  sample.  If  the  two  instrument  numbers  are  the 
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same,  nothing  is  done.  If  they  are  different,  the  total 
time  on  the  last  instrument  is  determined  and  this  time  and 
the  last  instrument  number  is  sent  to  the  Create  Table 
module. 

The  module  was  tested  by  reading  in  simulated  data 
samples  consisting  of  an  instrument  number  and  the  time  of 
the  data  sample,  and  outputting  instrument  numbers  and  the 
total  time  on  each  instrument.  Large  and  small  time  values 
were  examined  (boundary  value  testing)  and  random  values  of 
time  were  tested  (equivalence  partitioning).  The  test  data 
is  shown  in  Appendix  E. 

XaiLlfi 

The  Create  Table  module  takes  the  information  from  the 
Compare  Data  Sample  module  and  places  the  information  in  a 
table.  The  table  is  from  address  6000  through  63FF  in  the 
SYM  memory.  Appendix  E  shows  the  data  used  to  test  the 
module.  The  simulated  input  data  consisted  of  an  instrument 
number  and  the  time  on  that  instrument.  The  output  was  the 
data  in  the  table.  The  format  of  the  table  was  described  in 
Section  III.  Error  guessing  and  equivalence  partitioning 
were  used. 

Maflule:  £rini  S&aulta 

This  module  takes  the  data  from  the  final  table  and 
prints  the  results  out  in  three  tables.  The  information 
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printed  out  is  described  in  Section  III.  Examples  of  the 
final  data  table  are  in  Appendix  G. 

The  module  was  tested  by  using  the  random  numbers  in 
memory  locations  6000  (hex)  to  6400  (hex).  This  is  the 
location  of  the  final  data  table.  The  values  computed  and 
printed  were  compared  to  the  contents  of  the  memory 
locations  to  verify  correct  module  operation.  This  is 
equivalence  partitioning  testing. 
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V.  Subsystem  Validation 

The  subsystem  was  validated  using  simulated  oculometer 
input  data  and  simulated  parameters  for  the  instrument 
boundaries.  Figure  5  shows  the  simulated  instrument 
boundaries  used.  The  testing  methodogy  used  was  equivalence 
partitioning.  All  instruments  and  out-of-track  conditions 
were  simulated.  Various  time  increments  on  the  instruments 
were  examined.  The  final  data  table  was  examined  for  vali¬ 
dity,  and  the  three  output  tables  were  compared  to  the  final 
data  table.  Appendix  G  is  the  actual  SYM-1  output  of  the 
final  data  tables  and  the  corresponding  printed  output. 

One  value  in  the  three  tables  is  incorrect.  This  is 
the  number  of  fixations  for  glitch  in  Table  1.  There  is  an 
error  in  the  floating  point  routines.  This  error  remained 
at  thesis  completion. 
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VI.  Subsystem  Timing 


The  timing  of  the  five  modules  called  by  the  Main 
module  each  time  a  data  sample  is  input  from  the  SYM  is 
critical.  The  five  modules  are  Store  Data,  Add  Timing, 
Determine  Instrument  Number,  Compare  Data  Samples,  and 
Create  Table.  These  five  modules  have  to  be  completed  in 
the  amount  of  time  between  oculometer  data  sample.  The 
minimum  amount  of  time  between  data  samples  is  16.67 
milliseconds . 

Each  module  was  examined  for  worst  case  timing.  The 
worst  case  timing  for  each  is  shown  in  Table  5. 


Table  4 

Module  Worst  Case  Timing 


HumJ2££  fll  Machine.  Cycles 

Store 

61 

Interrupt 

51 

Add  Timing 

2561 

Determine  Instrument 

Number  7195 

Compare  Data  Samples 

135 

Create  Table 

437 

Main 

49 

The  total  number  of  machine  cycles  is  10489,  or  10.489 
msec.  Therefore,  there  is  more  than  adequate  time  between 
data  samples  for  all  six  modules. 
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VII.  User’s  Guide 


The  following  is  a  guide  to  using  the  oculometer  data 
collection  subsystem.  Items  underlined  are  responses  by  the 
SYM-1.  Items  capitalized  are  those  input  by  the  user.  <cr> 
is  a  carriage  return. 

1.  Power  the  SYM-1 

When  power  is  applied,  the  SYM-1  responds  with  a  "beep" 

2.  Load  disks 

Put  the  diskette  marked  ’’System  Disk”  into  the  right 
hand  disk  drive  and  the  diskette  marked  "oculometer 
subsystem"  into  the  left  hand  disk  drive 

3.  Assemble  subsystem  modules 

Hit  "Q"  on  the  keyboard.  The  SYM-1  will  respond  with  a 
period.  Then  key  in  the  following  sequence  of  events: 

j.  G  5000  (Note:  the  space  between  "G"  and  "5000"  is  not 
keyed  in  by  the  user.  It  is  automatically 
inserted  by  the  SYM-1) 

M£  11 UQ 

EPPS  COPYRIGHT  ial  iaM  im  1M. 

fl 2flfl=GB££  0C00-0EFC  Q£££ 

0200  QCQO 

2  SET  $0200  $1100  $1101  $1300  <cr> 
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o?oo-uoa  .noi-naa  am 
am  am 

2LOAD  INIT  <cr> 

2AS  <cr> 

//nOQO.jQ2Lifl^ 

2  CL  <cr> 

2  LOAD  STORE  <cr> 

2  AS  <cr> 
//OOOO.IAaiUlAaji 
2  CL  <cr > 

2  LOAD  TIMDIV  <cr> 

2  AS  <cr> 

2  CL  <cr > 

2L0AD  TIMING  <cr> 

2  AS  <cr> 

//oooo.lBa£UM£ 

2  CL  <cr> 


2  LOAD  INSTNM  <cr> 


t- 


2  AS  <cr> 


2  CL  <cr> 


2  LOAD  COMPAR  <cr > 


2  AS  <cr> 


2  CL  <cr> 


2  LOAD  UPDAT  <cr> 


2  AS  <cr> 

USmSU21±tu2115. 

2  CL  <cr> 


2  LOAD  INCR  <cr > 

2  AS  <cr> 
//0000.2WQr2ViQ 
2  CL  <cr> 


Ml 


2  LOAD  MASTER  <cr> 


e. 


2  AS  <cr> 


4.  Start  data  mission 
2  RUN  MAIN  <cr > 

M USk  SIAfiT  MISSIQfi  =  S 

Any  other  character  than  "S"  will  not  start  the 
simulated  data  mission  and  another  prompt  will  be  printed 
out.  No  other  user  intervention  is  required  until  the 
program  is  completed  and  a  ">"  is  printed. 

The  program  using  the  actual  oculometer  instead  of 
simulated  data  will  require  a  set-up  program  before  the  data 
mission  starts.  This  set-up  program  will  establish  the 
instrument  boundaries.  The  boundaries  were  hand  entered  for 
the  simulated  data  runs.  The  data  mission  using  the 
oculometer  would  be  started  the  same  way  as  the  simulated 
data  mission  (by  running  the  Main  module).  The  actual  data 
mission  would  end  by  hitting  reset  (RST)  on  the  SYM-1  on¬ 
board  keyboard.  The  remainder  of  the  User's  Guide  is  the 
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same  for  both  the  simulated  and  actual  data  missions 


5.  Print  out  results. 

2  SET  $0200  $1300  $1301  $1500  <cr> 

flaao-noo  130.1-1500  qfoo 

0200  0C00 

2  CL  <cr> 

2  LOAD  THREE  <cr> 

2  AS  <cr> 


2  CL  <cr> 


2  LOAD  SEVEN  <cr> 


2  AS  <cr> 


2  CL  <cr> 

2  LOAD  FPMUL  <cr> 

2  AS  <cr> 

2/0000. 21CF.21CF 


2  CL  <cr> 
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2  LOAD  CONVE  <cr> 


2  AS  <cr> 

LL  QOQP.22af.22af 

2  CL  <cr > 

2  LOAD  FPDIV  <cr> 


2  LOAD  TOVAL  <cr> 


2  AS  <cr> 

Z/QQQ .283F . 283F 
2  CL  <cr  > 


2  LOAD  OUTPT  <cr> 

2  AS 

ZZQQ..QQ  .2A1  Ef  2A1  E 
2  CL  <cr> 

>LOAD  OUTTB  <cr> 


2  AS  <cr > 


2  CL  <cr > 


2  LOAD  RESTB  <cr> 


2  AS  <cr> 


1/0000. 2DHFr2DHF 
2  CL  <cr> 

2  LOAD  OUTTC  <cr> 

2  AS  <cr> 


2  CL  <cr> 


2  LOAD  OUTTD  <cr> 

2  AS  <cr> 


2  CL  <cr> 

2  LOAD  BINDEC  <cr> 

2  AS  <cr> 


MjOTMjVlgilylU! 


2  CL  <cr> 

2  LOAD  FINAL  <cr> 

2  AS  <cr > 


2  RUN  FINAL  <cr > 

All  three  final  tables  will  print  out 
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VIII.  Recommendations 


The  oculometer  data  collection  subsystem  needs  further 
development  to  be  used  with  an  oculometer.  The  following 
additional  software  is  required: 

1.  Interface  with  the  oculometer.  The  data  from  the 
oculometer  needs  to  be  accessed  and  stored  in  the  SYM-1. 

2.  Establishment  of  instrument  boundaries.  Before  the 
data  mission  is  started,  the  pilot  will  look  at  two  diagonal 
corners  of  each  desired  instrument.  The  X  and  Y  eye 
direction  values  of  the  two  corners  are  used  to  establish 
and  store  the  instrument  boundaries. 

3.  Generation  of  oculometer  interrupt.  Every  time  the 
oculometer  generates  a  new  data  sample,  the  SYM-1  needs  to 
be  interrupted  so  the  data  can  be  stored  by  the  SYM-1  and 
used . 

4.  Correction  of  the  floating  point  error  in  Table  1. 


'  v 


Bibliagr.apto 

Merchant,  J.  and  Morrissette,  R.  A  fiamaifi  Snulafflaiail 
Permitting  Head  Movement.  Aerospace  Medical  Research 
Laboratory,  Aerospace  Medical  Division,  Air  Force 
Systems  Command,  Wright-Patter son  Air  Force  Case,  Ohio, 
November  1973  (AD  776075). 

Middleton,  David  B.,  George  J.  Hurt,  Marlon  A.  Wise, 
and  James  D.  Holt.  B£££ri£.fcinn  and  fligdi  l££i£  aX  an 
Q£lilflm£t£r.  Langley  Research  Center,  Hampton, 
Virginia,  June  1977  (NASA  TN  D-8419). 

Lambert,  Robert  H.,  Richard  A.  Monty,  and  Robert  J. 
h all.  hl&h=.2i 2££d  £a£a  Xnaneaaing  and  Unnhtrunlxa 
Monitoring  of  Eye  Movements.  US  Army  Human  Engineering 
Laboratory,  Aberdeen  Proving  Ground,  Maryland,  February 
1975  (AD  A006162). 

Waller,  Marvin  C.  Addliaaiian  fiX  Saanning 
Bahayian  La  In.tagraiad  Bianlax  Bgaflanad.  NASA  Langley 
Research  Center,  Hampton,  Virginia,  August  1977. 

Spady,  Amos  a.  Airlina  filai  Saanning  flndayiar  Bunina 
Aanraachea  and  Landing  in  a  Baaing  111  Simula iar.  nasa 

Langley  Research  Center,  Hampton,  Virginia,  October 
1977. 


48 


6.  Harris,  R.L.,  M.C.  Waller  and  S.  Salmirs.  fiunHai 
Texturing  Requirements  for  a  Head-Down  Cathode  £ax  Inda 
Anwinanll  and  Landing  Eianlaz.  NASA  Langley  Research 
Center,  Hampton,  Virginia,  September  1978. 

7.  Waller,  M.C.,  R.L.  Harris,  and  S.  Salmirs.  An  Exalna= 
tion  of  Some  Display  Parameters  for  an  Advanced  Landing 
Eififilax.  NASA  Langley  Research  Center,  Hampton, 
Virginia,  August  1979. 

8.  Page-Jone,  Meiiir.  ms  franiinal  Qu ida  In  Sinna-tarad 
Systems  Design.  New  York:  Yourdon  Press,  1980. 

9.  Yourdon,  Edward  and  Larry  L.  Constantine.  Slnud-tunad 
Design.  New  York:  Yourdon  Press,  1978. 

10.  Weinberg,  Victor.  SiCiidiUIlfid  Analxai a-  New  York: 
Yourdon  Press,  1980. 

11.  Peters,  Lawrence  J.  SnCtwarn  Caaign:  Ma.thflda  and 
Techniques.  New  York:  Yourdon  Press,  1981. 

12.  Findley,  Robert.  6.5Q2  Snliwran  Gnrma.fc  Gnida  and 
GfifigdfiGk.  Conneticut:  Scelbi  Computer  Consulting, 
Inc,  1979. 

13.  Leventhal,  Lance  A.,  Winthrop  Saville.  6502  Assembly 
Language  Subroutines.  California:  OSBORNE/McGraw-Hill , 
1982. 

14.  Myers,  Glenford  J.  Iha  ALfc  d£  SflLfcwnaa  Testing.  New 

York:  John  Wiley  &  Sons,  1979. 


49 


APPENDIX  A 


Memory 

Lasafcian 

FFFF 

EFFF 
~  DFFF 
CFFF 
BFFF 
~  AFFF 
9FFF 
8FFF 
“  7FFF 
6FFF 
5FFF 
4FFF 
3FFF 
2FFF 
1FFF 

OOOO 


SIM-1  Memarx  Mas 


SYM-1  Operating  System  Locations 
FF80 - 

Resident  Assembler/Editor 


Resident  Assembler/Editor 
Disk  controller 
4K  RAM 

SUPERMON  (SYN-1  Operating  System) 


8K  RAM 


8K  EPROM 


RAM 


— OFOO - 

Resident  Assembler/Editor,  Stack 

— OAOO - 

RAM 
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APPENDIX  B 


Qgulflmstfir  Connector  £nr  Digital  Data  Output 


Connector  type:  ITT  #  KPT02E20  -  41 S 


.  Number 

Lin 

Output 

1 

bit 

1  - 

MSB 

2 

bit 

2 

3 

bit 

3 

4 

bit 

4 

5 

bit 

5 

6 

bit 

6 

7 

bit 

7 

8 

ground 

9 

bit 

8 

10 

bit 

9 

11 

bit 

10  - 

LSB 

12 

clock 

13 

+5  i 

volts 

DC 

14 

bit 

1  - 

MSB 

15 

bit 

2 

16 

bit 

3 

17 

bit 

4 

18 

bit 

5 

19 

bit 

6 

20 

bit 

7 

21 

ground 

22 

bit 

8 

23 

bit 

9 

24 

bit 

10  - 

LSB 

25 

clock 

26 

+5  volts 

DC 

27 

bit 

1  - 

LSB 

28 

bit 

2 

29 

bit 

3 

30 

bit 

4 

31 

bit 

5 

32 

bit 

6 

33 

bit 

7 

34 

ground 

35 

bit 

8 

36 

bit 

9 

37 

bit 

10  - 

LSB 

38 

clock 

39 

+5  volts 

DC 

40 

not 

connected 

41 

not 

connected 

X  eye  direction 


X  eye 
Y  eye 


direction 

direction 


Y  eye 
pupil 


direction 

diameter 


pupil  diameter 
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Pasaal.-like  Eggsciction  ol  Modules 

Module  Main  Subsystem 
Variable  definitions: 

INIT  :  location  of  Initialization  module 
STORE  :  location  of  Store  Data  module 
TIMING  :  location  of  Add  Timing  module 

DETNUM  :  location  of  Determine  Instrument  Number  module 
COMPAR  :  location  of  Compare  Data  Samples  module 
TABLE  :  location  of  Create  Table  module 
TIMING  :  a  timing  loop  20  msec  long 

WRITELN  CHIT  S  TO  START  MISSION') 

READ(CHAR) 

IF  CHAR  =  S  THEN  («  start  the  mission  ») 

BEGIN 

INIT  («  call  INIT  module  *) 

COUNT  :  =  0  (*  look  at  beginning  of  array 
that  holds  simulated 
oculometer  output  *) 

TIMLOOP  (*  execute  timing  loop  that  is  20  msec 
long  *) 

STORE  (»  call  STORE  module  *) 

TIMING  («  call  TIMING  module  •) 

DETNUM  (*  call  DETNUM  module  •) 

COMPAR  (*call  COMPAR  module  ») 


TABLE  (*  call  TABLE  module  •) 

IF  we  are  at  the  end  of  simulated  oculometer 
output  THEN  Main  module  is  done 

ELSE  go  back  to  TIMING 

END 

ELSE  (*character  is  not  an  S*)  print  out  another  prompt 
to  start  the  mission 

Module  Initialization 
Variable  definitions: 

LSTRT1,  LSTRT2 ,  LSTRT3  :  start  time  of  last  data 
sample 

LASTIN  :  instrument  number  of  last  data  sample 

LOTIM,  MITIM,  HITIM  :  number  of  time  increments 
since  beginning  of  data  run 

OLDIN  :  last  instrument  through  create  table 

Declare  all  variables  in  two  or  more  modules 

LSTRT1  :  =  0 

LSTRT2  :  =  0 

LSTRT3  :  =  0 

LASTIN  :  =  0 

LOTIM  :  =  0 

MITIM  :  s  0 

HITIM  :  =  0 

OLDIN  :  =  0 

Final  Data  Table  :  =  0 
Initialize  6522  Counter 
Store  interrupt  routine 


3.  Module  Store  Data  (Simulated) 

Variable  definitions: 

DATA[I]  :  array  that  contains  simulated  oculometer 
output  in  the  format  of  XDIRH,  XDIRL, 

YDIRH,  YDIRL ,  TRACK.  The  end  of  the  array 
is  a  'D* . 

XDIRH  :  high  byte  of  X  eye  direction 
XDIRL  :  low  byte  of  X  eye  direction 
YDIRH  :  high  byte  of  Y  eye  direction 
YDIRL  :  low  byte  of  Y  eye  direction 

TRACK  :  track/out-of-track  status;  =  0  if  out-of-track 

COUNT  :  pointer  to  keep  track  of  where  you  are  in  the 
DATA  array.  It  is  initialized  to  zero  in  the 
Main  module. 


XDIRH 

= 

DATA 

[COUNT] 

COUNT 

s 

COUNT 

+  1 

YDIRL 

= 

DATA 

[COUNT] 

COUNT 

- 

COUNT 

+  1 

YDIRH 

= 

DATA 

[COUNT] 

COUNT 

= 

COUNT 

+  1 

YDIRL 

= 

DATA 

[COUNT] 

COUNT 

= 

COUNT 

+  1 

TRACK 

= 

DATA 

[COUNT] 

COUNT 

- 

COUNT 

+  1 

Module  Store  Data  (Oculometer) 

Variable  definitions: 

XDIRL  :  low  8  bits  of  X  direction 
XDIRH  :  hi  8  bits  of  X  direction 


N^rv>c  trr  i  ■  ■— «**-^—»* « •  ffr*-' 


YDIRL  :  low  8  bits  of  Y  direction 
YDIRH  :  hi  8  bits  of  Y  direction 
TRACK  :  track/out-of-track  status 

READ  bits  1-8  of  X  direction  into  bits  0-7  of  XDIRL 

READ  bits  9-10  of  X  direction  into  bits  0-1  of  XDIRH 

READ  bits  1-8  of  Y  direction  into  bits  0-7  of  YDIRL 

READ  bits  9-10  of  Y  direction  into  bits  0-1  of  YDIRH 

IF  bit  1  of  XDIR  =  1  THEN  (*  it  was  a  negative 
number  *)  set  bits  2-7  of  XDIRH  to  1 

ELSE  (*  it  was  a  positive  number  *)  set  bits  2-7  of 
XDIRH  to  0 

IF  bit  1  of  YDIRH  =  1  THEN  (»  it  was  a  negative 
number  *)  set  bits  2-7  of  YDIRH  to  1 

ELSE  (*it  was  a  positive  number  *)  set  bits  2-7  of 
YDIRH  to  0 

IF  oculometer  out-of-track  THEN  TRACK  :  =  0 
ELSE  (*  oculometer  is  in  track  *)  TRACK  :  =  1 

Module  Add  Timing 
Variable  definitions: 

LOTIME  :  low  byte  of  time  intervals  elapsed  to  the 
last  65 22  interrupt 

MITIME  :  middle  byte  of  time  intervals  elapsed  to  the 
last  6522  intervals 

HITIME  :  high  byte  of  time  intervals  elapsed  to  the 
last  6522  interrupt 

LCOUNT  :  low  byte  of  6522  counter 

HC0UNT  :  high  byte  of  6522  counter 

START1  :  low  byte  of  number  of  time  intervals  elapsed 
to  the  current  data  sample 
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START2  :  middle  byte  of  number  of  time  intervals 
elapsed  to  the  current  data  sample 

START3  :  high  byte  of  number  of  time  intervals  elapsed 
to  the  current  data  sample 

READ  HCOUNT  and  LCOUNT 

Divide  HCOUNT,  LCOUNT  by  1000  and  subtract  from  65 

Add  this  to  LOTIME,  MITIME,  HITIME  and  store  result  in 
START1 ,  START2,  START3 

Module  Determine  Instrument  Number 
Variable  definitions: 

XDIR  :  X  eye  direction  of  current  data  sample 

YDIR  :  Y  eye  direction  of  current  data  sample 

GRID[ I ]  :  array  with  instrument  boundaries  followed 
by  the  instrument  number  with  a  format  of 
upper  X,  lower  X,  upper  Y,  lower  Y, 
instrument  number.  There  is  an  *  E •  at  the 
end  of  the  array 

NOINST  :  instrument  number  for  no  instrument 

INST  :  the  data  sample's  instrument  number 

TRACK  :  track/out-of-track  status  of  current  data 

sample.  It  is  equal  to  zero  if  data  sample 
is  out-of-track 

XH  :  storage  for  upper  X  boundary  from  GRID 

XL  :  storage  for  lower  X  boundary  from  GRID 

YH  :  storage  for  upper  Y  boundary  from  GRID 

YL  :  storage  for  lower  Y  boundary  from  GRID 

CURINS  :  storage  for  instrument  number  from  GRID 
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I  :  = 


IF  TRACK  =  0  THEN 
INST  :=  0 


ELSE 


WHILE  not  at  the  end  of  GRID  DO 
BEGIN 


XH  :  =  GRID  [I] 

I  :  =  I  +  1 
XL  :  =  GRID  [I] 

I  :  =  I  +  1 
YH  :  =  GRID  [I] 

I  :  =  I  +  1 
YL  :  =  GRID  [I] 

I  :  =  I  +  1 
CURINS  :  =  GRID  [I] 

I  :  =  I  1 

IF  XH  -  XDIR  <  0  THEN 

it  cannot  be  in  that  instrument  so 
go  back  to  WHILE  and  get  another 
set  of  instrument  boundaries 

IF  XL  -  XDIR  >  0  THEN 

go  back  to  WHILE  and  get  another 
set  of  instrument  boundaries 

IF  YH  -  YDIR  <  0  THEN 

go  back  to  WHILE  and  get  another 
set  of  instrument  boundaries 

IF  YL  -  YDIR  >  0  THEN 

go  back  to  WHILE  and  get  another 
set  of  instrument  boundaries 

(*  If  the  data  sample  made  it  through 
all  the  tests,  it  was  within  that 
instrument's  boundaries  *) 


57 


INST  :  =  CURINS 
END  (*  WHILE  •) 

(*  If  reached  the  end  of  GRID  and  no  instrument  number 
was  found,  define  the  instrument  as  no  instrument  *) 

IF  reached  the  end  of  GRID  THEN  INST  :  =  NOINST 

Module  Compare  Data  Samples 
Variable  definitions: 

INST  :  current  data  sample's  instrument  number 

LASTIN  :  last  data  sample's  instrument  number 

START  :  start  time  of  current  data  sample 

LSTRT  :  start  time  of  last  data  sample 

TOTIM  :  total  number  of  time  increments  on  LASTIN. 

This  is  sent  to  the  next  module 

INSTNM  :  instrument  number  sent  to  the  next  module 
with  TOTIM 

IF  LASTIN  i  INST  THEN 
BEGIN 

TOTIM  :  =  START  -  LSTRT 
INSTNM  :  =  LASTIN 
LASTIN  :  =  INST 
LSTRT  :  =  START 

END 

(*  ELSE  if  they  are  not  equal,  disregard  the  data 
sample  *) 
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7.  Module  Create  Table 

Variable  definitions: 

INSTNM  :  instrument  number  of  the  current  data  sample 

TOTIM  :  total  number  of  time  increments  of  the  current 
current  data  sample 

OLDIN  :  instrument  number  of  the  last  data  sample 
through  the  module  if  the  sample  was  not  a 
glitch  or  a  blink. 

GLITCH,  BLINK,  DATAGN,  INS1..25  :  each  represents  the 
starting  address  of  a  row  in  the  table  for  that 
instrument.  Each  row  is  33  bytes  long. 

IF  TOTIM  <  50  THEN  (*  the  data  sample  is  a  glitch  *) 
BEGIN 


increment  GLITCH  +31,  32  (*  31  and  32  are 
bytes  for  number  of  fixations  *) 

increment  GLITCH  +  OLDIN  (*  determine  which 
instrument  was  transitioned  from  *) 

add  TOTIM  to  GLITCH  +  28,  29,  30  (*  bytes 
28,  29,  and  30  represent  the  amount 
of  time  spent  on  that  instrument  *) 


END 

ELSE  (*it  is  not  a  glitch*) 

IF  INSTNM  =  0  THEN  (*  it  is  out-of-track  *) 

IF  TOTIM  i  183  THEN 
(*  it  is  a  blink  *) 

BEGIN 

increment  BLINK  +31,  32 

increment  BLINK  +  OLDIN 

add  TOTIM  to  BLINK  +  28,  29,  30 


END 
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ELSE  (*it  is  data  gone  *) 

BEGIN 

increment  DATAGN  +  31 »  32 
increment  DATAGN  +  OLDIN 
add  TOTIM  to  BLINK  +  28,  29,  30 
OLDIN  :  =  INSTNM 

END 

ELSE  (*it  is  not  out-of-track  so  it  is  an 
instrument*) 

BEGIN 

X  :  =  INSTNM 

increment  INSX  +31,  32 

increment  INSX  +  OLDIN 

add  TOTIM  to  INSX  +28,  29,  30 

OLDIN  :  =  INSTNM 

END 

Module:  Print  Results 
Variable  definitions: 

TABLE[I]  :  location  of  final  data  table 
NEXTINST  :  difference  in  location  between  the  same  data 
in  two  instruments 

ACCTIME  :  location  of  accumulated  time 
FIX  :  location  of  the  total  number  of  fixations  for  an 
instrument 

TOTIME  :  total  accumulated  time  for  all  instruments 
TOTFIX  :  total  number  of  fixations  for  all  instruments 
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MINUTES  :  total  number  of  minutes  in  a  mission 
FIXMIN  :  number  of  fixes  per  minute  for  an  instrument 
TRANS[I]  :  number  of  transitions  from  instrument  I  to 
the  instrument  you  are  examining 
MEANDWL  :  mean  dwell  time  for  an  instrument 
PROPDWL  :  proportion  of  dwell  time  on  an  instrument 
PROPFIX  :  proportion  of  fixations  for  an  instrument 
(•print  out  total  dwell  time  on  each  instrument*) 

DO  WHILE  there  are  instruments 
BEGIN 

WRITELN  ( TABLE [ACCTIME  ]  ) 

(•go  to  the  next  instrument*) 

ACCTIME  :=  ACCTIME  +  NEXTIN 

END 

(•print  out  mean  dwell  time  on  each  instrument*) 

DO  WHILE  there  are  instruments 
BEGIN 

MEANDWL  :=  TABLEt ACCTIME ]/TABLE[ FIX 3 
WRITELN  (MEANDWL) 

(•go  to  next  instrument*) 

ACCTIME  :=  ACCTIME  +  NEXTINST 
FIX  :=  FIX  +  NEXTINST 

END 

(•print  proportion  of  dwell  time  on  each  instrument*) 

DO  WHILE  there  are  instruments 


61 


BEGIN 


TOTIME  :=  TOTIME  =  TABLEt ACCTIME ] 

ACCTIME  :=  ACCTIME  =  NEXTINST 

END 

DO  WHILE  there  are  instruments 
BEGIN 

PROPDWL  :=  TABLEt ACCTIME ] /TOTIME 
WRITELN( PROPDWL) 

(*go  to  the  next  instrument*) 

ACCTIME  :=  ACCTIME  +  NEXTINST 

END 

(•print  proportion  of  fixations  on  each  instrument*) 
DO  WHILE  there  are  instruments 
BEGIN 

TOTFIX  :=  TOTFIX  +  TABLEtFIX] 

FIX  :=  FIX  +  NEXTINST 

END 

DO  WHILE  there  are  instruments 
BEGIN 

PROPFIX  :=  TABLE [FIX 3 /TOTFIX 
WRITELN  (PROPFIX) 

(*go  to  next  instrument*) 

FIX  :=  FIX  +  NEXTINST 

END 

(•print  transition  probabilities*) 

DO  WHILE  there  are  instruments 
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BEGIN 


FOR  I  :=  1  to  25  DO 

WRITELN(TRANS[I] 

(*go  to  the  next  instrument*) 

FIX  :=  FIX  +  NEXTIN 

END 

(•print  number  of  fixes  per  minute  for  each  instrument* 
DO  WHILE  there  are  instruments 
BEGIN 

FIXMIN  :=  TABLEt FIX  3 /MINUTES 
WRITELN(FIXMIN) 

(*go  to  next  instrument*) 

FIX  :=  FIX  +  NEXTINST 

END 
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i  Tft 

XDIPH 

i  ■ 1  0 

I  NY 

i.i  1-'  i.i 

LDft 

DftTft.  Y 

1 1 . :  i  j 

I  Tft 

XD  I  PL 

ii  :4  1 1 

I  NY 

n  :c.ij 

LDft 

DftTft.  Y 

l<  . :  r-.  1  j 

:  Tft 

YDIRH 

1 1  : 7  (l 

I  NY 

i  i  :  i  j 

LDft 

DftTft.  Y 

ii  :  -* i.i 

:Tft 

YD  I  PL 

H4UI.I 

I  MY 

1 14  1  Ij 

PT<3 

3.  Division  routine  called  by  Add  Timing  module 


>1  QAD 

timdiv 

>PR 

Mill  (1 

•  BA  *  1 RR4 

HUSO 

•  OS 

1(040 

D1VHI 

.DS  1 

5HIGH  BYTE  DF  DIVISOR 

ii050 

DIVLO 

.ns  i 

.'LOW  BYTE  DF  DIVISOR 

iiOrO 

REMHI 

.ns  i 

5  HI  BYTE  OF  REMRINDER 

ii  ii  70 

REMLO 

.ns  i 

ILO  BYTE  OF  REMRINDER 

u080 

G'UDH  I 

.ns  i 

JHI  BYTE  DF  DIVIDEND/' QUOTIENT 

11080 

OUDLO 

.ns  i 

5L0  BYTE  OF  DIVIDEND'GUQTIENT 

IMI81 

COUNT 

.ns  i 

Ml  00 

J  THIS 

ROUTINE  DIVIDES 

R  TWO-BYTE  DIVIDEND  BY  R 

Ml  1  0 

5  8-fsYTE 

DIVISOR  TO  GET 

R  8-BYTE  QUOTIENT  RND  R  8-BYTE 

M180 

5  REMAINDER 

ill  30 

START 

LOR  wOO 

Ml  40 

STR  REMHI 

.INITIALIZE  RLL  VARIABLES 

it  1  5  0 

STR  REMLO 

M151 

STR  COUNT 

1 18  0  0 

LOR  ®*03 

M8  1  0 

STR  DIVHI 

M880 

LOR  «*E8 

i  i,  ■ 0 

STR  DIVLO 

Mi  50 

JSR  SHIFT 

ii8t.O 

LOOP 

SEC 

M8c.  1 

LOR  REMLO 

08  7  0 

SBC  DIVLO 

II,:  30 

STR  REMLO 

m,'-:iO 

LOR  REMHI 

JREM-DIV 

ii  :00 

SBC  DIVHI 

Mil  0 

STR  REMHI 

ii  :8m 

BCS  POS 

; IF  CARRY® 1 »  RESULT  WAS  POS 

1 1  :  ;l  0 

LOR  REMLO 

m  ;4u 

ROC  DIVLO 

ii  :50 

STR  REMLO 

n  >.  0 

LDR  REMHI 

n  :70 

RDC  DIVHI 

0  :80 

STR  REMHI 

ii  : 8 0 

JSR  SHIFT 

ii400 

JMP  GO 

"410 

POS 

LDR  «01 

M4  30 

ORR  OUDLO 

M44  0 

STR  OUOLO 

H441 

JSR  SHIFT 

M450 

GO 

INC  COUNT 

1 14*1.1 

LDR  « 1 5 

"431 

CMP  COUNT 

04  7  0 

BNE  LOOP 

"430 

RTS 

"4  80 

5  SUBROUTINE  TO  SHIFT 

THREE  BYTES  LEFT 

ii*  <00 

SHIFT 

ASL  OUOLO 

i SHIFT  LEFT-0  INTO  LSB 
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II*.  1  0 

BCC  ONE 

11‘V'il 

ASL  QUOHI 

n ‘.30 

LDA  «01 

ii*"i4  0 

ORA  QUOHI 

n*.  SO 

ST A  QUOHI 

n'.r.O 

JMP  TWO 

n‘.  ro 

ONE 

ASL  QUOHI 

ii ‘.:30 

TWO 

BCC  THREE 

m*>80 

ASL  REMLO 

Mr.  00 

lda  »01 

Mr .  1  0 

ORA  REMLO 

llr.c‘0 

STA  REMLO 

tit.  30 

.IMP  FOUR 

Mr. 40 

THREE 

ASL  REMLO 

Mr  .SO 

FOUR 

BCC  FIVE 

Mi.r.0 

ASL  REMHI 

Mr.  70 

LDA  si 01 

Mr. 80 

OP A  REMHI 

Ilf  90 

STA  REMHI 

It, '00 

JMP  SIX 

on  0 

FIVE 

ASL  REMHI 

»7c'0 

!  I X 

SEC 

m7£1 

RTS 

i.i7  30 

.  EN 

5  IF  CARRY=0>  DON'T  NEED 
5  TO  BRING  BIT  OVER 

5  BRING  CARRY  OVER 


i 

i 


« 


I 
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Module:  Add  Timing 


L  DAD 

T 1 11 1 NG 

PR 

t .  1 1 1  0 

.BA  *1B50 

Illl80 

.OS 

I  1 1 14  0 

HI  VIS 

. DE  *1AAB  ; ROUTINE  TO  DIVIDE 

ihi5(i 

i.'IJDH  I 

.BE  HAAS  IHI  BYTE  OF  D I V I DEND'QUOT I ENT 

m  tf.  u 

C'lJOLD 

.DE  HAAS  JLO  BYTE  OF  DIVIDEND' QUOTIENT 

1 1 1 1  r  o 

LOTIME 

.DE  *1834  ILO  BYTE  OF  NUM  OF  TIME  INTERVALS 

mix  M 

MITIME 

•DE  *1835  5MIDDLE  BYTE  OF  TIME  INTERVALS 

1  IU'-*M 

HI  TIME 

.DE  *1838  iHI  BYTE  OF  TIME  INTERVALS 

Ml  00 

HLATCH 

.DE  *A005  j 6588  HI  LATCH 

ul  1  0 

L COUNT 

.DE  *  A  0'I4  ;  6588  LO  COUNTER 

Ulu'  0 

START1 

.DE  *1888 

HI  0 

STARTS 

.DE  *1889 

1 1 1  4  0 

ST  ARTS 

.DE  * 1 88A 

n)  j(i 

T I  MI  MG 

SEI 

ii  1  5  1 

ITHIS  MODULE  DETERMINES  THE  NUMBER  DF  TIME  INTERVALS  THAT  HAVE 

ill  58 

5  ELAPSED 

FROM  THE  BEGINNING  OF  THE  DATA  RUN  TO  THE  CURRENT 

1115:-: 

! DATA  SAMPLE.  IT  CALLS  DIVIS*  WHICH  DIVIDES  TWO  BYTES  BY  TWO 

IH54 

5  BYTES. 

0]  60 

LDA  HLATCH  5  READ  HI  BYTE  OF  COUNTER 

ul  7(i 

ST A  QUOHI 

ul:-:  (i 

LDA  LCQUNT  5  READ  LO  BYTE  OF  COUNTER 

i.i  1  x  (i 

STA  CHJOLO 

O.'OO 

J SR  DIVIS  ; DIVIDE  COUNT  BY  1000 

•  1.1  (1 

;  SUB TRAC 

T  RESULT  FROM  65  TO  FIND 

1 1.  '8  I  I 

; NUMBER  DF  TIME  INTERVALS  ELAPSED 

1 1. - ':  (i 

SEC 

i.u '  4  i.i 

LDH  ?:*41  5LO  BYTE  OF  65 

ii.  '5  ii 

SBC  QUOLQ  ;*4l-QU0L0 

ii.  '6  i.i 

STA  QIJQLO 

n.'7  (i 

LDA  5**00  5HI  BYTE  OF  65 

ii,  (i 

SBC  QUQHI 

II,- •■4 I.I 

STA  QUOHI 

ii  : i.iij 

:  NOW  HDD  TO  THE  CURRENT  NUMBER 

1 1  : 1  (i 

;0F  TIME 

INTERVALS  ELAPSED 

ii  :S0 

LDA  LOT  I ME 

ii  :  3 (1 

CLC 

ii  :4 ii 

ADC  QUOLQ 

ii  :5(i 

STA  START 1  5  START  TIME  OF  CURRENT  DATA  SAMPLE 

ii  :6 0 

LDA  MI  TIME 

ii  :7d 

ADC  QUOHI 

n  ::-:(! 

STA  STARTS 

ii,:9i.i 

LDA  s*00 

1 14  U  (I 

ADC  HITIME 

H41  (i 

STA  STARTS 

n480 

CL  I 

1 14  ?:  (1 

RTS 

H440 

.EN 
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Module:  Determine  Instrument  Number 

>1  OBD  JNSTNM 
:  PR 

o ii i o  ;find  instrument  number 

m  Oii' 0  I 

1 1 i.i 3 0  ;  THIS  SUBROUTINE  WILL  TBKE  THE  X  BND  V  DBTB  BND  TRBCK 

1104(1  5  DBTB  FROM  THE  CURRENT  DBTB  SBMPLE  BND  DEFINE  THE 

11(150  ;  INSTRUMENT  NUMBER  OF  THE  DBTB  SBMPLE. 

urns. 0  ;  THE  X  DBTB  IS  TWO  BYTES  BND  IS  C: FILLED  XDIRH  (HIGH 
0070  5 ORDER  BYTE>  FIND  XDIRL  (LOW  ORDER  BYTE> .  THE  Y  DBTB 

nof:o  ;is  vdirl  find  ydirh.  the  instruments  fire 

•  1 0’~* 0  ;  DEFINED  BY  THE  X  FIND  Y  VFlLUES  OF  THE  DIFlGONFlL  CORNERS* 

moo  ;chlled  upper  find  lower  x  vblues  find  upper  find  ldwer 

Olio  5  Y  VFlLUES.  THESE  4  VFlLUES  FlRE  TWO  BYTES  EFlCH  FIND  BRE 
Olio  *  STORED  IN  THE  GRID, 
til  SO  ; 


0140 

.  BFl 

tlBBO 

0 1 C 0 

.03 

o250 

CQMH 

.  DS 

1 

ii  SCO 

COML 

.  DS 

1 

•  u '  7  0 

GR  I  DH 

.  DS 

1 

ns  CO 

GRIDL 

.  DS 

1 

0290 

RESH 

.  DS 

1 

J DEFINED  IN  SUBTRBCT  SUBROUTINE 

i.i  S  0  0 

RESL 

.  DS 

1 

0  S  1  0 

E 

.BY 

-E' 

ii  SCO 

GR  I D 

.DE 

SI  833 

03  SO 

INST 

.DE 

$182B 

5  INST  NUM  THBT  IS  DETERMINED 

0  340 

XDIRH 

.DE 

SI  823 

>X  EYE  DIRECTION  OF 

n  350 

XDIRL 

.DE 

S 1 824 

5  CURRENT  DBTB  SBMPLE 

ii  SCO 

YD  I RH 

.DE 

1 1 825 

JY  EYE  DIRECTION  DF 

i.i  37  0 

YDIRL 

.DE 

S 1 82C 

*  CURRENT  DBTB  SBMPLE 

nS71 

TRBCK 

.DE 

*1827 

>  TRBCKyOUT-DF-TRBCK  STHTUS 

o': 3  0 

NO  INST 

.  BY 

25 

5  INST  NUM  OF  NO  INSTRUMENT 

ii  SCO 

BUFFER 

.DE 

$3500 

i  M  S  0 

? 

1 1 ;  ’  3  0 

*  FIND 

THE  in; 

;  TRUMENT 

NUMBER 

0  74  0 

!  DETERMINE  IF 

IT  IS  OUT-OF-TPBCK 

0741 

TXFi 

o742 

PHH 

; S BVE  > 

<  REGISTER  FOR  BUFFER  LOCBTION 

0750 

LDX 

::  0  i.i 

* INITIBL IZE  X 

o  7t,  u 

L  DH 

TRBCK 

» PUT  TRBCK  BYTE  IN  B 

0770 

BNE 

FIND 

5  IF  ZERO*  SET  INST  NUM  TO  ZERO 

i '7:3  0 

LDFl 

;;  0  0 

0  790 

ST  Ft 

INST 

i  if:  0  0 

JMP 

END 

OKI  0 

FIND 

LDFl 

GR I D *  X 

*  GET  HIGH  BYTE  OF 

OK  20 

STB 

GRIDH 

*  UPPER  X  VBLUE 

08  3  0 

I  NX 

o::40 

LDH 

GRID*  X 

;get  low  byte  of 

o:t50 

STB 

GRIDL 

;  UPPER  X  VBLUE 

l  iKC  0 

LDH 

XDIRH 

» COMH*XDIRH 
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1 1: .  7  C* 

STH  comh 

iliiHU 

LDR  XDIRL 

SCOML=XDIRL 

STH  coml 

if  •On 

JSR  SUBTRH 

;  xh-x 

1  >"•  1  0 

BCC  BRCK1 

;not  in  grid  if  result 

i  f  <i' 0 

;  GET 

TWO 

BYTES  OF  LOWER  X  VHLUE 

hi  ":Ci 

I  NX 

ir->40 

LDH  GRID*X 

!GET  HIGH  BYTE  OF 

ii  •*=.  ii 

STH  GRIBH 

;  LOWER  X  VHLUE 

If  <r.  1.1 

I  NX 

If  1 7  lj 

L  DH  gR I D  * X 

;get  low  byte  of 

if*::  It 

STh  GRIDL 

*  LOWER  X  VHLUE 

ll'l^ll 

?  HLREHDY 

HHVE  XDIRL  IN  COML  RND  XDIRH  IN  COMH 

1  m.iii 

JSR  SUBTRH 

; xl-x  • 

1  1 1 1  0 

BC  S  BRC K 2 

;not  in  grid  if  result 

1  He'll 

;  GET 

TWO 

byte:  of  upper  y  vhlue 

1  1 1  i.i 

1  NX 

1  u4  i.i 

ldh  ijRHiiX 

5  HIGH  BYTE  DF 

1  i  if.  i.i 

- T  H  GR I DH 

>  UPPER  Y  VHLUE 

1  lie.  Cl 

I  NX 

1  Hf  Ci 

LDH  GRIDjX 

;low  byte  of 

1  ni:  lj 

STh  GRIDL 

5  UPPER  Y  VHLUE 

1  if-*  i.i 

LDH  ydirh 

*  CDMH* YDIRH 

1  1  Ci  Ci 

STh  COMH 

1110 

LDH  YDIRL 

;  COML *' YDIRL 

1  1  c'  0 

STH  COML 

1  1  5  ii 

JSR  SUBTRh 

;  YL-Y 

1  14n 

BCC  BHCK 5 

;not  in  grid  if  reult  i 

1  If.  i.i 

5  GET 

TWO 

BYTES  OF  LOWER  Y  VHLUE 

1  1  e.  0 

I  NX 

1  1  70 

LDH  gR I D *  X 

5HIGH  BYTE  OF 

1  1  i:  0 

STH  GRIDH 

*  LOWER  Y  VHLUE 

1  1  mi 

I  NX 

K '  0  i.i 

LDH  GR ID*  X 

*  LOW  BYTE  OF 

K'lO 

STH  GRIDL 

*  LOWER  Y  VHLUE 

1  v  i'  i.i 

JSR  SUBTRH 

*  YL-Y 

K '  5  Ci 

BCS  BHCK  4 

*NOT  IN  grid  IF  RESULT 

K'4U 

5  HHVE  FOUND  THE  INSTRUMENT 

K'Ml 

I  NX 

K'e.O 

LDH  GRID* X 

1  X  7  0 

STH  INST 

K'hO 

JMP  END 

K:'-Hl 

BHCK  1 

I  NX 

1  500 

I  NX 

1  5  1  0 

BHC  K£ 

I  NX 

1  580 

I  NX 

1  5  50 

BHCK  5 

I  NX 

1  54  Ci 

1  NX 

1  5  SO 

5  STILL  NEEIi  TO  FIND 

INSTRUMENT  NUMBER 

1  :e.  I.I 

BHC  ►  4 

I NX  • LOOK 

HT  INSTR  NUM 

1  5e.S 

INK  *  LOOK 

HT  NEXT  NUMBER 

1  570 

LDH  GRI D»  X 

1  580 

CMP  E 

1  5  50 

BNE  FIND 

JBHCK  VU  BEGINNING  IF 

14  00 

LDH  NDINST 

1410 

STH  INST 

NEG 


PQS 


NEG 


PDS 


NOT  HN  E 
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1 4  Em 

END 

PLA 

14S1 

TAX 

144i'i 

1  4c-n 

5 

RTS 

1  4  CM 

5  SUBROUTINE  SUBTRACT 

14  70 

i  NEED 

THE  FOLLOWING 

VARIABLES  FOR  THIS  SUBROUTINE 

1  4*0 

•  C  QNH  - 

HIGH  BYTE  OF 

DATA  SAMPLE 

1  4^0 

;coml  - 

LOW  BYTE  OF  DATA  SAMPLE 

1  *■  ii  ii 

;  GR'  I  DH 

-  HIGH  BYTE  OF 

GRID  PARAMETER 

1  c.  1  0 
i*-.so 

lc.  SO 

5GRIDL 

-  LOW  BYTE  QG 

GRID  PARAMEYER 

r  libtra 

:ec  ;set 

CARRY 

r.40 

LDA  GRIDL 

1  VCI 0 

SBC  CQfIL 

5  SUBTRACT  LOW  ORDER  BYTES 

1  ‘it.  1.1 

STA  RESL 

5  STORE  RESULT 

1  *.  7  0 

L  DA  GR I DH 

I'.xO 

SBC  CQMH 

5  SUBTRACT  HIGH  ORDER  BYTES 

1  *'■’40 

STA  RESH 

J STORE  RESULT 

RT 
•  El 


5  SUBTRACT  HIGH  ORDER  BYTES 
> STORE  RESULT 


5.  Module:  Compare  Data  Samples 


LOAD  COMPHR 
:  CR 

•  •  •:•  1  0  i  PROGRAM  COMPARE 

Hi.icO  ;  THIS  PROGRAM  WILL  COMPHPE  THE  LHST  BATH  SHMPLE  TD  THE 
'III. SO  ? PRESENT  DATA  SHMPLE.  IF  THE  INSTRUMENT  NUMBER  IS  THE  SAME ,  DO 
••040  *  NOTHING.  IF  THEY  HPE  DIFFERENT,  SET  TPS  STOP  TIME  DF  THE 
"050  .LAST  DHTH  SHMPLE  EC'UHL  TO  THE  STHRT  TIME  OF  THE  CURRENT  DftTH 
Oi.icO  i I  AMPLE  HND  SEND  THE  LHST  DHTH  SAMPLE  TO  THE  BUFFER.  THE 

•  •070  « CURRENT  DHTH  SHMPLE  BECOMES  THE  LHST  DHTH  SHMPLE. 

0080  » 


0080 

.BH 

11CS0 

0 1  0  0 

.  OS 

•  Mil 

INSTNM 

.DE 

*  1 88  B 

» INST  NUM  INTO  COMPARE 

01  SO 

INST 

•  DE 

1I88F 

I  INST  NUM  TO  CREATE  TABLE 

'•1  SO 

STHRT 1 

.  DE 

11888 

5  CURRENT  DHTH  SHMPLE 

0 1 4  0 

STARTS 

.DE 

11888 

J  TIMING  INFORMATION 

it  l  =.  0 

STARTS 

.DE 

1 1 88H 

0 1  *  0 

LHSTIN 

.DE 

118  33 

5  LAST  DHTH  SHMPLE  INST  NUM 

Ml  70 

LSTRT  I 

.  DE 

11830 

5  START  TIME  OF  LHST 

M 1 8  0 

LSTRT8 

.  DE 

11831 

5  DHTH  SHMPLE 

0 1 8  0 

LSTRT 3 

.  DE 

11838 

OS'  0  0 

TOT  I M 1 

.DE 

S182C 

i TOTAL  TIME  SPENT 

•  i8  I  0 

TDTIM8 

.DE 

1 1 88  D 

»  ON  INSTNM 

"830 

TOT  I MS 

.DE 

1 1 88E 

•  •S'  so 

BUFFER 

.DE 

13500 

08  4  0 

TEST 

.DE 

164 1C 

5  TEST  BYTE  USED  IN  MAIN  MODULE 

it  8  SO 

I 

H8*0 

\  |  7  |*| 

! C OMPHRE 

LAST  DHTH  SHMPLE  TO  PRESENT  DHTH  SHMPLE 

0871 

LDH 

::  0  0 

n878 

STH 

TEST 

Uis’o  1.1 

LDH 

INSTNM 

h4:*9  0 

CMP 

LHSTIN 

5  IS  INST=LHSTIN? 

i  t  i:  0  ij 

BEG! 

END 

■  •31  0 

LDH 

LHSTIN 

5  IF  NO,  SEND  INFO  TO  BUFFER 

it*m 

STH 

INST 

0  380 

STH 

BUFFER, X 

'  1 3  ?•  0 

I  NX 

ii340 

5 

ii  3  SO 

J  SUBTRACT 

TO  FIND  TOTAL 

TIME  HND  SEND  INFO  TO  BUFFER. 

1 1 3*  0 

5  3-BYTE  S 

UBTRHCT :  START 

-LSTRT1,  TD  GET  TOTAL  TIME  ON 

"37  0 

J  THAT  INS 

TRUMENT. 

n  380 

• 

* 

ii  380 

SEC 

,'  SET  CARRY 

1 14 1 1 0 

LDH 

STHRT 1 

H4I  0 

SBC 

LSTRT1 

.’SUBTRACT  LOW  ORDER  BYTES 

0480 

STH 

TOTIMI 

114  30 

STH 

BUFFER, X 

5  STORE  RESULT  IN  BUFFER 

n440 

I  NX 
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n  i. 


«• 


i  '4  c>  (i 

LDA 

STARTS 

ti4r.O 

SBC 

LSTRT2 

i  <4  ?  (1 

STA 

T0TIM2 

1-4  AO 

STA 

BUFFER, X 

1 1 4  ,;M.l 

I  NX 

1*00 

LDA 

STARTS 

l.i‘.  1  U 

SBC 

LSTRT3 

OS20 

STA 

TOT  I  M3 

(i*i  j  O 

STA 

BUFFER, X 

iic.4  0 

I  NX 

i.i*.t>  0 

•  SET  NEW  LAST 

DATA  SAMP 

n*.  7  ii 

f 

i.iSif;  ».i 

LDA 

INSTNM 

i.i“i  AO 

STA 

LAST  IN 

Mr.  0  0 

LDA 

START 1 

lie.  1  (1 

STA 

LSTRT1 

llr.  SO 

LDA 

STARTS 

; SUBTRACT  MIDDLE  BYTES 

5  STORE  RESULT  IN  BUFFER 

.‘SUBTRACT  HI  ORDER  BYTES 

5  STORE  RESULT  IN  BUFFER 

;e 

;lastin=instnm 

5LSTRT1 -START 1 
5LSTRTc-START£ 


(it.  3  ii 

II 
(I 

Me. 5  1 
(it.*.£ 

lift.  0  END 
Mr  TO 


STA  LSTRT2 

LDA  STARTS  » LSTRT3=START3 

STA  LSTRT3 

LDA  K  0 1 

STA  TEST 

RTS 

.Eli 
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7 .  Update-routine  called  by  Create  Table  module 


LOAD  UP  DAT 


F  R 


mil  u 

.  BP 

13000 

1 1 1  ti 
nn4  0 

.OS 

!  TH I  3  PRO GRAM  I 

S  CALLED  BY  MASTER. 

Ml ‘Ml 

;  IT  WILL 

UPDATE 

THE  PROPER  COLUMNS:  IN  THE  TABLE. 

1 1  Mr.  1.1 

TABLE  1 

.HE 

$6  0  0  0 

i.i  ii  r  u 

TABLE8 

.DE 

it.  1  00 

HljlSO 

TABLES 

.DE 

it.  3  00 

111,1'-' II 

TABLE4 

.DE 

it.  3  0  0 

ill  u  0 

C  OL  T  T 1 

.  BY 

38  ; COLUMN  FOR  HI  BYTE  OF  TIME 

I'l  1  0 

CQLTT8 

.  BY 

3  3  5 COLUMN  FOR  MID  BYTE  OF  TIME 

I'lc'tl 

COLT T 3 

.  BY 

30  5 COLUMN  FOR  LO  BYTE  OF  TIME 

i.i  1  3  0 

CULP XL 

.  BY 

31  5COL  FOR  MUM  OF  FIXATIONS 

(i  1  4  0 

CDLFXH 

.  BY 

38 

nl  50 

TEMP 

•  DE 

$3160 

i.  It.  0 

LAST 

.DE 

$183? 

M  70 

TOT I  Ml 

.DE 

$1 88C 

1.1 1  80 

TOT  I  Me' 

•  DE 

'1 1 88D 

ll  l  80 

TOT  I  M3 

.DE 

1 1 83E 

He' 00 

UP  DAT  1 

CLC 

I'l.'  1  0 

TXA 

; TRANSFER  X  TO  ACC 

l’e'c'0 

ADC 

COLTT1 

I  >8  3  0 

TAX 

; TRANSFER  ACC  TO  X 

|'l'40 
He' 50 

CLC 

LDH 

TOTIM1 

l  let.  0 

HDC 

TABLE I  *  X 

He' 70 

ST  A 

TABLE I » X 

I  <e'8  0 
iie'90 

I  MX 
LDH 

TOT  I M3 

•  i  _■»  0  0 

ADC 

TABLE 1 » X 

n  :  1  0 

ST  A 

TABLE I, X 

ll  ic’U 
ii  :  : : 0 


I  MX 
LDA 


TUT  IMS 


ii  :4  ft 

ADC 

TABLE  1 >  X 

ii  :50 

ST  A 

TABLE 1 >  X 

ii  it 0 

I  MX 

ii  :70 

CLC 

n  ::-:0 

L  DA 

-  0 1 

ii  :'4i.i 

ADC 

TABLE  I f X 

•  MOO 

ST  A 

TABLE I » X 

04 1  0 

I  MX 

11480 

L  DA 

a  0  0 

n4  3M 

ADC 

T ABLE  1 *  X 

•  1440 

STA 

TABLE 1 » X 

11450 

LDX 

TEMP 

H4c.0 

CLC 

0470 

TXH 

0480 

ADC 

LAST 

2 


( 


n*.  Oil 

INC 

05  1  il 

RTS 

OSS  II 

UPBATS 

CLC 

05  0 

TXA 

054  0 

ADC 

OS  50 

TAX 

05*:.  0 

CLC 

0570 

LDA 

05  SO 

ADC 

05*0 

STA 

0*  00 

I  NX 

il*  1  0 

LDA 

iit'S  0 

ADC 

ii*.  So 

STA 

Or.  4  0 

I  NX 

0*.5o 

LDA 

il*.*.  0 

ADC 

it*.  7  ii 

STA 

Oe.yo 

I  NX 

ij*.*-*i.i 

CLC 

0700 

LDA 

07' 1  0 

ADC 

O7S0 

STA 

07' 30 

I  NX 

0740 

LDA 

0750 

ADC 

07' SO 

STA 

1 1 7 ' 7  IT 

LDX 

ill 'SO 

CLC 

07"-*0 

TXA 

n::00 

ADC 

n: :  l  0 

TAX 

0:  S  0 

INC 

1 1;  :  30 

RTS 

in.  4  0 

UP DAT  3 

CLC 

OS  50 

TXA 

ill:  *•  0 

ADC 

0  c  70 

TAX 

TABLE  l » X 


* TRANSFER  X  TO  ACC 
C0LTT1 

; TRANSFER  ACC  TO  X 

TOT IM1 
TABLES* X 
TABLES* X 

TOTIflS 
TABLES. X 
T  ABLES  *  X 

TOT  I  M3 
TABLES* X 
TABLES* X 


::  0 1 

TABLES, X 
TABLES. X 

0  0 

TABLES, X 
TABLES, X 
TEMP 


LAST 

TABLES*  X 


5  TRANSFER  X  TO  ACC 
COL  T  T 1 

5  TRANSFER  ACC  TO  X 


in-  :;:0 

CLC 

Hi: '-*0 

LDA 

TQTIM1 

O':,O0 

ADC 

TABLES, X 

O'T  I  0 

STA 

TABLE  3. X 

ii'-'SO 

I  NX 

oy  .30 

LDA 

TOT  IMS 

i  r-*4  0 

ADC 

TABLES, X 

ii'f'5o 

STA 

TABLE 3, X 

0'-'*.  0 

INX 

ii:i70 

LDA 

TOT IMS 

ii,'SO 

ADC 

TABLE  3, X 

iiyTO 

STA 

TABLE  S*  X 

1  iiO  0 

INX 

1010 

CLC 

loSO 

LDA 

st  0 1 

1  o  3  0 

ADC 

TABLES* X 

I  040 

STA 

TABLES* X 
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3.  Incr-routine  called  by  Create  Table  module 


>LCIAD 

INCR 

>f  P 

(ml  0 

.  Bft  IS  130 

imj'O 

.OS 

1 1 1  if.  0 

TEMP 

.DE  13160 

mir-O 

TEMSTQ 

.  DS  1 

tm^d 

I  NCR 

DEC  TEMSTO 

>  STORAGE 

FOR 

nil'll 

LOft  TEMSTO 

n]  (i  0 

BEG*  DONE 

;  INSTRUMENT  NUMBER 

n  1  I  0 

CLC 

i«l  SO 

LDft  «iSS 

i.i  1  3  u 

ft  DC  TEMP 

*  TEMP  I  S 

THE 

ill  4d 

ST ft  TEMP 

*  PROPER 

ADDRESS 

n  ]  50 

.IMP  INCR 

;  IN  THE 

TABLE 

nit.  i.i 

DONE 

LDX  TEMP 

nl  70 

RTS 

1 1  8  (■ 

.EN 
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Module:  Create  Table 


LOAD  master 
PR 

Hill  o  ; MASTER  algorithm.  this  algorithm  will  put  the  information 

i i 03 0  ;IN  THE  DATA  SAMPLES  INTO  THE  FINAL  DATA  TABLE.  THE  DATA 
iiij-:0  !  COMING  IN  IS  IN  THE  FORM  OFs 


n  114  0 

;  INSTNM  =  INSTRUMENT 

NUMBER 

mi*7. 0 

5  TOT I Ml  *  TOT  IMS* TOT I M3  *  NUMBER  DF  TIME  INTERVALS 

SPENT 

1 1 06  n 

» ON  THAT 

INSTRUMENT. 

9 

imyO 

•BA  *3160 

it  080 

.  as 

m  10 

TEMP 

.BS  1 

MSO 

5  DEFINE 

SPACE  FOR  TABLE 

Hi  SO 

TABLE 1 

•DE  *6000 

5  FOR  GL I CH »  BL I NK » DAT A  GONE 

M 1 4  0 

SAND  INST  1-4 

0150 

TABLES 

.DE  *6100 

5F0R  INSTS  5-11 

0160 

TABLES 

•DE  *6300 

5FUK  INSTS  13-18 

0170 

TABLE4 

.DE  *6300 

5  FOR  INSTS  19-35 

|>1 80 

UP DAT 1 

.DE  *3005 

H 1  '-*0 

UP DATS 

.DE  *3048 

1*300 

UP DAT 3 

. DE  *3080 

nSl  0 

UP DAT 4 

.DE  *3001 

iiJv-0 

INCR 

.DE  *3131 

nS  30 

TENS TO 

.DE  *3130 

■  '340 

COMMA 

.DE  *83 3A 

Oc’5  0 

INST 

.DE  t 1 83F 

. INST  NUM  THROUGH  MASTER 

OSG 1 

THIS  1 

S  LAST  IN  FROM  MODULE  COMPARE 

0370 

T0TIM1 

. DE  *18 SC 

.'TOTAL  NUMBER  OF  TIME  INCREMENTS 

iii-Oll 

TOT  I  MS 

.DE  *1830 

J  ON  INSTNM 

l.i  3  80 

TOT 1 M3 

.DE  *1 8SE 

Oc' 81 

1  1  I  I  |  l 

LAST 

.DE  *1837 

.LAST  INST  NUM  THROUGH  CREATE  TABLE 

0  31  0 

!* 

MASTER 

TXA 

H  ..30 

PHA  5  SAVE  X 

REGISTER 

0  :30 

LDA  TOT  I M3 

i!.-:  40 

BNE  NOGLIT 

5IF  TOT  IMS  NOT  0. CANNOT  BE  A 

GLITCH 

n  ..50 

LDA  TOT  IMS 

0  it.  0 

BNE  NOGLIT 

.'IF  T0TIM3  NDT  O.CANNOT  BE  A 

GLITCH 

0  370 

SEC 

n  :  >:0 

LDA  is *38 

ii  i* 0 

:b*:  totimi 

» IF  TDTIM!>50  IT  IS 

1.14  0  0 

use  TESTI 

5  NOT  A  GLITCH 

04 1  0 

LDX  is  00 

0  4  SO 

LDA  is 00 

04  30 

STA  TEMP 

0440 

JSR  UPDAT1 

'.UPDATE  TABLE 

045  0 

JMP  END 

0460 

iNQW  SEE 

IF  THE  INST  NUM  IS  OUT-OF-TRACK 

0470 

TESTI 

LDA  INST 

? ALREADY  KNOW  T0TIM3+3  «  0. 

U480  BNE  FIND  5IF  INSTNM  NOT  ZERO* IT  IS  AM  INST 


"490 

SEC 

"500 

LDft  «*B? 

hM  0 

SBC  T0TIM1 

iiSSO 

BCC  NDGLIT 

(i*.  3  0 

LDX  »*££ 

"540 

LDft  «*SS 

n*;?  o 

STft  TEMP 

"5*0 

JSR  UP DAT I 

•  i*i  70 

JMP  END 

"5:30 

NQGL I T 

LDft  INST 

u*;  3d 

BNE  FIND 

IK.  (1(1 

LDX  ::144 

(it.  I  o 

LDft  «*44 

(It.  3(1 

STft  TEMP 

nt.  30 

JSR  UPDftTl 

dt.  40 

LDft  INST 

lit,  5(i 

STft  LAST 

dt. GO 

JMP  END 

in.  7d 

»  FIND 

THE  CORRECT  SPOT 

Ht.I"!  (1 

FIND 

SEC 

(it.^O 

LDft  «t04 

(171.1(1 

SBC  INST 

1-710 

BCC  TESTS 

1-73(1 

LDft  sctt.fc. 

n7  30 

:Tm  TEMP 

"74  0 

LDft  INST 

n  750 

STft  TEMSTO 

"7*0 

JSR  I NCR 

1-770 

JSR  UPDftTl 

n780 

LDft  INST 

"790 

STft  LAST 

i.i  t :  (I  (i 

JMP  END 

"81  0 

TESTS 

SEC 

"830 

LDft  «$0B 

"830 

SBC  INST 

i,i:-:4  0 

BCC  TESTS 

"850 

LDft  tt'fOO 

(*:-:•£•  (i 

STft  TEMP 

"t:  70 

SEC 

(if  .“30 

LDft  INST 

ii:-:90 

SBC  :st(i4 

"900 

STft  TEMSTO 

"91  0 

JSR  I NCR 

0930 

JSR  UPDATS 

"9  30 

LDft  INST 

1 194  (| 

STft  LAST 

"950 

JMP  END 

i  r-»*  0 

TESTS 

SEC 

"970 

LDft  (ft IS 

"9:30 

SBC  INST 

"990 

BCC  TEST4 

1  000 

LDft  «* 00 

1010 

STft  TEMP 

1030 

SEC 

1 1 030 

LDft  INST 

T 183-TQTIMI 

;no  glich  if  tqtimi>i83 

5IF  TDTIM1L<I83»  IT  IS  ft  BLINK 


;go  to  find  if  it  is  an  inst 

i ELSE  IT  IS  DUT-QF-TRACK 


IN  TftBLE  FDR  THftT  INST 


5  IF  INSTNM<5»  THEN  THftT  INST 
5  IS  IN  TftBLEl 


5  FIND  CORRECT  ROW  IN  TftBLE 


JIF  INSTNN<1£>  THEN  THftT  INST 
5  IS  IN  TABLES 


5  IF  INSTNMC18*  THftT  INST  IS 
5  IN  TABLE3 
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► 


1 II 40 
1  uSO 
1  060 
1  (i  70 
1  OS  0 

I  090 

I I  00 

11  1 0  TEST4 
US  1 1 
1 1  SO 
114  0 
1  ISO 
1160 
1  170 
1  180 
1  1 90 
Id  00 
1810 
Id  SO 
18  30 
1  840 
1  d-'O 

i860  tests 

1870  END 

IdSO 
1890 
1  300 


SBC  w*0B 
ST*  TEMSTO 
JSR  I NCR 
JSR  UP DAT 3 
LDh  INST 
STN  LtiST 
JMP  end 
SEC 

LliH  "  t  1 H 

SBC  INST 
BCC  TESTS 
LDH  -100 
STR  TEMP 

SEC 

LDH  INST 

SBC 

STH  TEMSTO 
JSR  I NCR 
JSR  UPD8T4 
LDH  INST 
STM  LhST 
JMP  END 
JSR  caririH 
PLli 

thh 

RTS 

.EN 


5  IF  INSTNM<£6»  IT  IS 
;  IN  T8BLE4 


IHflVE  HN  ERROR 
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to.  Module:  Main  Subsystem 


LOAD  MM  IN 

PR 

oo  i  o 

. BA  *6400 

0  OS  u 

.  OS 

0040 

DATA 

.HE  *6490  ; LOCATION  OF  SIMULATED  OCULDMETER  DATA 

0050 

INI  T 

.D£  *19DS  5  INITIALIZATION  MODULE 

0060 

STORE 

.BE  *1 A70  5  STORE  DATA  FROM  OCULDMETER 

i,iu  70 

TIMING 

.BE  *1B50 

0  OS  o 

INSTNM 

.BE  * 1  BBS 

i'i  OS  o 

•:  qmpar 

.BE  1IC80 

Ml  00 

MAiTER 

.BE  *S161 

0 1  1  0 

OUTCHR 

.BE  *8A47  I  OUTPUT  A  CHARACTER 

01  so 

INC  HR 

.BE  *8A 1 B  5  INPUT  A  CHARACTER 

01  30 

CRLF 

.BE  *834D  » CARR I AGE  RETURN  AND  LINE  FEED 

0140 

START 

.BY  HIT  S  TO  START  MISSION-' 

0150 

COLIN  T1 

.  BY  S3 

0160 

.BY  "S' 

01  70 

COUNTS 

.BS  1 

0 1  s  o 

LQ 

.  BS  1 

01  so 

HI 

•  BS  1 

01  si 

TEST 

.BS  1  ;TEST  TD  SEE  IF  MODULE  MASTER  IS  CALLED 

os  o  o 

n 

.BY  ' B ' 

OS  1  0 

» PRINT 

OUT 

PROMPT  TO  START  PROGRAM 

osso 

MH  IN 

JSR  CRLF 

OS  30 

L  BX  "00 

0S4O 

LOOP  1 

LBA  START » X 

0S50 

JSR  OUTCHR 

OSc.O 

I  NX 

OS  70 

CPX  COUNT 1 

OSSO 

BNE  L00P1 

osso 

JSR  IHCHR 

0  3  0  0 

CMP  S 

0  3 1  0 

BNE  MAIN 

031  1 

LDX  "00 

0  3S  0 

J  DATA 

MISS 

ION  HAS  STARTED 

0  3  3  0 

JSR  INI T  5  TIMER  IS  RUNNING 

0  34  0 

LBV  #00  ? DON'T  USE  Y  IN  ANY  OTHER  MODULES 

0  350 

« THE  FOLLOWING  IS  A  TIMING  LOOP  TD  SIMULATE 

0  3c.  0 

J OCULDMETER  DHTH  SAMPLES 

u  370 

NEXT 

LBA  #*40  ;L0  BYTE  OF  83S 

0  38  0 

STA  LO 

0  S'-*  0 

LBA  #*03  > HI  BYTE  OF  83S 

04  0  0 

STA  HI 

04 1  0 

LOOPS 

SEC  » THIS  LOOP  IS  APPROX 

04S0 

LBA  LO  J  APPROX  SO  MSEC  LONG 

04  30 

SBC  #01 

0440 

STA  LO 

0450 

NOP 

0480 

LDA  HI 
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'1-4  70 
0-4:50 
0490 
OS  00 
OS  I  0 

it  sj'  o 

1 1 S  0 
itS  4  n 
MS 4  I 
0ci4i' 
OSSO 
ilSr.  0 

i  is  70 
OS.-:  n 
OS*  I 

I  IS  -Ml 

Hr:.  1.11. 1 


;  HOW 


OVER 


SBC  «oo 
STl=»  HI 
BNF  L00P2 

STORE  H  DHTH  SAMPLE 


JSR 

STORE 

JSR 

TIMING 

JSR 

INSTNM 

JSR 

C OMPHR 

LDH 

TEST 

EEC* 

OVER 

JSR 

MASTER 

LDH 

DHTH*  Y 

CMP 

D 

?HRE  AT  END  OF  DHTH? 

BNE 

"El 

NEXT 

;IF  NOT *  TIME  NEXT  SHMPLE 

RTS 

.EM 

- 
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The  following  modules  are  used  by  the  Print  Results  module 


11.  Module:  Three 


I  UHD  three 


PR 

i.i 1 4 1  ii  ;  THREE 

mV:' II  ;  THIS  I'  H  GROUP  I  MG  OF  THREE  ROUTINES  USED  BY 

mi  so  ;the  print  results  routine. 

i i it 4 0  .Bn  IS  i.i 00 

1 1 1 1  *7i  0  .OS 

1.1  or  IT  VHLUE  .  DE  10000 

1.1  On  o  ; rothte  right 

Mil -m  ;  THIS  ROUTINE  ROTmTES  Y  < INDEX  REGISTER)  BYTES  TO 
i.U  00  .'THE  RIGHT.  THE  X  REGI  STER  IS  THE  LDCBTION  OF  THE 


0 1  1  0 

•  L  S  BYTE 

OF  THE 

DHTH  TD  BE  ROTFlTED. 

0 1  Z  0 

ROTHTL 

CLC 

?  i.  LEHR  i-  HRR‘Y 

0 1  S-;  0 

ROTL 

RDl. 

VHLUE. X  ; ROTHTE  THE  BYTE  LEFT 

I.I  1  -4  I.I 

HEY 

4  DECREMENT  BYTE  COUNTER 

0  1  S  0 

BHE 

MORRTL  J  NOT  ZERO.  CONTINUE  ROTHTE 

I.i  1  r.  I.I 

RTS 

J  DENE .  RETURN 

i  ■  i  r  o 

MORRTL 

in:: 

; hdvhnce  memory  pointer 

•  ■  r  --  o 

0  t  4  1 1 
i  .  00 

.IMP 

ROTL  ; CONTINUE  TO  ROTHTE  LEFT 

* 

TRQThTE 

RIGHT 

1,10 

.*  THE  : 

H ME  PHRHMETERS  HRE  USED  HS  IN  RQTHTE  LEFT. 

iVcO 

ROTHTR 

CLC 

5  C  LEHR  CHRRY 

I'VSO 

ROTR 

POP 

VHLUE.::  ?  ROTHTE  THE  BYTE  RIGHT 

i  S' 40 

DEV 

? DECREMENT  BYTE  COUNTER 

I  .  : 0 

BNE 

MORRTR  SNOT  ZERO.  CONTINUE  ROTHTE 

1  vGO 

RTS 

5  DONE. RETURN 

i  .  ■'  7  i  i 

MDRR  T  R 

DE.s 

; DECREMENT  MEMORY  POINTER 

i.  J'  -riO 

I  "•  'Si  |  i 

JMP 

ROTR  ; CONTINUE  ROTHTE  RIGHT 

1  ;!H0 

; complement 

i  1  U 

;  this 

PERFORMS  THE  TWO'S  COMPLEMENT  OF  Y  NUMBER 

1  tl'U 

.'OF  BYTE 

S .  THE 

REGISTER  CQNTHINS  THE  LS  BYTE  OF  THE 

i  :  . \  \ 

'.VHLUE  TO  BE  COMPLEMENTED 

i  ;4m 

CUMFLM 

SEC 

JSET  CHRRY 

i  :  S  n 

r  anpL 

L  DH 

•“IFF  .'LO HD  IFF  FOR  COMPLEMENT  OP 

1  ;r.ll 

EOP 

VHLUE.::  ? COMPLEMENT  BYTE 

i  :  r  n 

HDC 

-1  Ci it  5  IF  CHRRY- 1*  TWO  S  COMPLEMENT 

i  :::n 

:th 

VHLUE.::  5STDRE  BYTE  IN  MEMORY 

»  ;  •■mi 

in:: 

S HDVHNCE  ME MORY  POINTER 

i  40 i.i 

HEY 

«  DECREMENT  BYTE  COUNTER 

i*4  1  0 

BNE 

CDI1PL  ;not  zerd.  continue 

i  4  .**  0 

RTS 

; RETURN  TO  CHLLING  PROGRHM 

i.i  4  M 

.EN 
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I  /  AD  A 124  700 
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*2.  Module:  Seven 


lQhD  SEVEN 
PR 


l.'l II 1  II 

.Eh 

18  0  3  0 

i  i  (i  ■:  Ci 

.o: 

i.i  li  4  0 

*  SUBROUT I ME  SEVEN 

i.i  1.1*.  0 

;  the: 

E  ARE  EVEN  ROUTINE:  NEEDED  FOP  THE  FLOATING 

I.I  1.1  f;.  I.I 

5  POINT 

routine: 

• 

i.i  1 1 7  0 

0  08  0 

• 

FMPNT 

.DE 

luOGG 

5 FROM  POINTER 

m.r^M 

TQF'NT 

.DE 

10008 

5  TO  POINTER 

0 1  u  0 

:  i  i3m  : 

.DE 

1 0  0  06 

5  SIGN  INDICATOR 

II 1  1 II 

fpl:  w 

.  DE 

1 0  0  08 

*  FPHCC  LS  BYTE 

1 1 1  if'  I.I 

FRN'W 

.  DE 

1 0  0  Of* 

JFPhCC  NEXT  SIGNIFICANT  BYTE 

i.i  ]  j:  1 1 

f  pm:  w 

.  DE 

100  OH 

; fphcc  most  significant  byte 

l.i  1  4  Cl 

Mil  HMD 0 

.  DE 

1 0  0  oc 

; MULT I PL I ChT I ON  WORK  AREA 

Cl  1  S  n 

F  QPL  :  W 

.  DE 

1001  0 

5FPOP  LEAST  SIGNIFICANT  BYTE 

ii  1  c-  Cl 

FOPNS W 

.DE 

1001 1 

5FPOP  NEXT  SIGNIFICANT  BYTE 

oi  ;'(■ 

FORMS W 

.DE 

10018 

5 FPQP  MOST  SIGNIFICANT  BYTE 

I.I  1  8  0 

FOPEXP 

.DE 

10013 

5FPOP  EXPONENT 

I.I  1  -*  I.I 

MURK  0 

.DE 

10014 

5  WORK  AREA 

08  0  0 

10LSW 

•  DE 

100  IF 

*10  WORK  AREA  LS  BYTE 

1  I.I 

IQ.TP 

.DE 

10083 

*10  STORAGE 

Me' if'  IJ 

i  □ :  tp.m 

.  DE 

10086 

;i^o  storage 

Oil'  f: Cl 

I  OEXPD 

.DE 

10087* 

*  10  EXPONENT  STORAGE 

Oif'4  Cl 

ROTATL 

.DE 

18000 

5  ROTATE  LEFT 

084  1 

CQMPLM 

.  DE 

18018 

*  COMPLEMENT 

ii  J-  50 

;  |  J'  f-,  |  | 

FPMULT 

• 

.DE 

18 1 1  0 

5  FLOATING  POINT  MULTIPLY 

Oil' r  0 

5  C  L  E  HR 

h  : 

EC T ION  OF  MEMORY 

Me' 8  Cl 

CLPMEM 

LOH 

«too 

•  SET  UP  ZERO  VALUE 

Me'  ""•Cl 

THY 

* INITIALIZE  INDEX  PDINTEP 

(i  f:  1 1  n 

CLPM1 

STH 

<  TQPNT> * 

Y  *  CLEAR  MEMORY  LOCATION 

M 1  Ci 

I  NY 

*  ADVANCE  INDEX  POINTER 

M  Me'  Cl 

D  EX 

»  DECREMENT  COUNTER 

0  ;■  J:  i.i 

ONE 

CLRM1 

*  NOT  ZERO » CONTINUE  CLEARING 

0  1:4  Ci 

1 1  *:  *i  1 1 

RTS 

*  RETURN 

M  0 

; TRANSFER 

A  SECTION  OF 

MEMORY 

M  :,'0 

MOV  I  NO 

LDY 

::!0G 

*  INITIALIZE  INDEX  POINTER 

0  1: 0 

MOVIN1 

LDH 

« FMPNT> . 

Y  5  FETCH  BYTE  TO  TRANSFER 

i.i  3  80 

:th 

•TOPNT:.  -. 

Y  5  STORE  BYTE  IN  NEW  LOCATION 

ii400 

I  NY 

; advance  index  pointer 

04  1  ill 

DEX 

! DECREMENT  BYTE  COUNTER 

0480 

ENE 

MOV INI 

5 NOT  ZERO*  CONTINUE 

04  f:  Cl 

RTS 

5  RETURN 

044  0 

• 

04*50 

*  MULTIPLE 

PPEC1 

SION  ADDITION 

04r.0 

ADDER 

CLC 

*  CLEAR 

CARRY  FLAG 

0470 

HOOP! 

LDH 

• TOPNT- , 

Y  J FETCH  BYTE  FROM  ONE  VALUE 

0480 

HDC 

• FMPNT >  » 

Y  5  ADD  BYTE  OF  OTHER  VALUE 

*  TOPNT*  » V  S STORE  RESULT 

; INCREMENT  INDEX  POINTER 
5  DECREMENT  COUNTER 


BNE  ADDR1 


5  NOT  ZERO.  CONTINUE  ADDITION 


•:i«S •:  o 

RTS 

5  RETURN 

054  U 

5 

08  1.1 

; MULT I PLY 

FPACC 

BY  TEN 

0840 

FPX10 

LDN 

55104 

0850 

ST  A 

FOPEXP 

»  LOAD  FPOP  WITH  A  VALUE  OF  TEN 

OP  GO 

LDA 

55150 

;  BY  SETTING  THE  EXPONENT  TO  FOUR 

i.'i870 

STA 

FORMS W 

SAND  THE  MANTISSA  TO  S50»$00»*00 

0880 

LDA 

55100 

1)880 

STA 

FOPMSW 

08  0  0 

STA 

FOPLSW 

08 1  0 

JSR 

FPMULT 

.‘MULTIPLY  FPACC  BY  FPOP 

0^8  0 

DEC 

IDEXPD 

5 DECREMENT  DECIMAL  EXPONENT 

0850 

RTS 

5  RETURN 

TO  TEST  FOR  COMPLETION 

0 

9 

0850 

{MULTIPLY 

FPACC  BY  0. 1 

i.l'-tr.  1) 

FPD1  0 

LOG 

551FD 

S PLACE  0.1  IN  FPOP  BY 

r-<  7  i'i 

STA 

FDPEXP 

S  SETTING  FPDP  EXPONENT  TO  -3 

)■  ^8  0 

LDA 

55  let. 

SAND  LOADING  MANTISSA 

O'-*-4  0 

STA 

FOPMSLI 

SMITH  1Gb > 186.167 

l  000 

STA 

FOPNSW 

1  0 1  0 

LDA 

55187 

1  080 

STA 

FOPLSW 

t  0  5  0 

JSR 

FPMULT 

{MULTIPLY  FPACC  BY  FPOP 

l  i.i  4  0 

INI' 

IDEXPD 

5  INCREMENT  DECIMAL  EXPONENT 

l  m5  0 

1  Mr.  i.i 

5 

RTS 

5  RETURN 

1  07m 

DEC BIN 

LDA 

55100 

l  08  M 

STA 

IOSTR3 

5  CLEAR  MS  BYTE+1  OF  RESULT 

1  080 

LDX 

55 1 OLSW 

S SET  POINTER  TO  I "0  WORK  AREA 

l  1  MO 

STX 

TOPNT 

5  STORE  IN  TOPNT 

mo 

LDX 

ss  IOSTR 

5  SET  POINTER  TO  I  'D  STORAGE 

1  1  8  0 

STX 

FMPNT 

5  STORE  IN  FMPNT 

l  1  50 

L  DX 

5S1M4 

S  SET  PREC  ISION  COUNTER 

114  0 

JSR 

MOVIND 

.MOVE  I'U  STORAGE  TO  WORK  AREA 

l  150 

l  DX 

55  IOSTR 

5 SET  POINTER  TO  ORIGINAL  VALUE 

l  1  r.  0 

LDY 

55104 

.SET  PRECISION  COUNTER 

1170 

JSR 

ROTATL 

S START  X  10  ROUTINE  <T0TAL=X2> 

1  1 8  0 

LDX 

55  IOSTR 

S RESET  POINTER 

l  180 

LDY 

55104 

SSET  PRECISION  COUNTER 

1 8  M  0 

JSR 

ROTATL 

.•MULTIPLY  BY  TWO  AGAIN  (TQTAL*X4> 

1810 

LDX 

55  I  OLSW 

SSET  POINTER  TO  I'D  WORK  AREA 

1 880 

STX 

FMPNT 

5  STORE  IN  FMPNT 

1850 

LDX 

55  IOSTR 

SSET  POINTER  TO  1^0  STORAGE 

1  84  0 

STX 

TOPNT 

.‘STORE  IN  TOPNT 

I  85  M 
l  8  GO 
l  370 
l  80  I) 
i  S80 


55104  SSET  PRECISION  COUNTER 

ADDER  5 ADD  ORIGINAL  TO  ROTATED  (TOTAL «X5> 

55  IOSTR  5  RESET  POINTER 

55104  «  SET  PREC  ISION  COUNTER 

POTATL  8X2  AGAIN  (TQTAL«X10>  AND  RETURN 


1 


Module:  Floating  Point  Multiply 


U.dAD  FPMUL 


SRR 


0(1 1  0 

5  FLOATING 

POINT  MULTIPLY 

0  0c*  0 

. BA  *8110 

0  i.i  5  0 

.05 

0  i'i*i  o 

FMPNT 

. DE  *0000 

J  FROM  POINTER 

0  o«-.  o 

TOPNT 

. DE  *0008 

;to  pointer 

ooro 

CNTP 

.DE  *0004 

; COUNTER  STORAGE 

<»OkO 

SIGNS 

. DE  *0006 

5  SIGNS  INDICATOR 

1111-40 

FPL : WE 

. DE  *0007 

*. FPAOC  EXTENSION 

II  t  0  0 

FPL  ;  W 

. DE  *0008 

; FPAOC  LEAST  SIGNIFICANT  BYTE 

0  1  1  0 

FPN'W 

. DE  *0008 

5 FPAOC  NEXT  SIGNIFICANT  BYTE 

o  l  8  0 

FPMSW 

. DE  *OOOA 

; FPAOC  MOST  SIGNIFICANT  BYTE 

n  i  ;•!  o 

FPACCE 

.DE  *00  OB 

; FPAOC  EXPONENT 

0  |  4  0 

«C ANDO 

.DE  *000C 

5 MULTIPLICATION  WORK  AREA 

0 1  *,  0 

MCAND1 

.DE  *000D 

5MUTI PLICATION  WDRK  AREA 

0160 

FOPLSM 

.DE  *0010 

JFPOP  LEAST  SIGNIFICANT  BYTE 

0170 

FORMS W 

.DE  *0018 

JFPOP  MOST  SIGNIFICANT  BYTE 

0180 

FOPEXP 

.DE  *0013 

5FP0P  EXPONENT 

0 1  80 

WORK  0 

. DE  *0014 

i WORK  AREA 

0  500 

WORK  1 

.DE  *0015 

;WORK  AREA 

0  51  0 

WORK  3 

.DE  *0017 

*  WORK  AREA 

•?80 

WOP  Kb 

.DE  *001 A 

5  WORK  AREA 

830 

PAGEO 

.  DE  *  0  0  0  0 

0  85  0 

POT A TP 

.DE  *8000 

? ROTATE  RIGHT 

0880 

ADDER 

.DE  *8045 

5 ADDITION  ROUTINE 

0870 

MOVIND 

.  DE  *8C>  3 A 

; ROUTINE  TO  MOVE  BYTES 

0880 

COMPLM 

.DE  *8018 

5  COMPLEMENT  BYTES 

0880 

CLRMEM 

. DE  *8030 

? CLEAR  AN  AREA  OF  MEMORY 

0300 

FPNORM 

.DE  *81 FA 

'FLOATING  POINT  NORMALIZATION 

0  3 1  0 

FPMUL T 

JSP  01  SIGN 

« it T  UP  AND  CHECK  SIGN  OF  MANTISSAS 

0  380 

LDA  FOPEXP 

?  GET  FROP  EXPONENT 

0  3  3  0 

CLC  5  ADD  FPACC  EXPONENT 

0  34  0 

ADC  FPACCE 

?T0  FPOR  EXPONENT 

0  3*50 

STA  FPACCE 

I  SAVE  IN  FPAOC  EXPONENT 

0  36  0 

INC  FPACCE 

;add  one  for  algorithm  compensation 

0  370 

SETMCT 

LDA  »*17 

5  SET  BIT  COUNTER 

0380 

STA  CNTP 

5  STORE  BIT  COUNTER 

0  380 

MULT IP 

LDX  '"FPMSW 

5SET  POINTER  TO  FPACC  MS  BYTE 

0400 

LDY  “*3 

S  SET  PRECISION  COUNTER 

04 1  0 

JSP  ROTATR 

! ROTATE  FPACC  RIGHT 

0480 

BCC  NADDPP 

SCARPY=0<.  DON'T  ADD  PARTIAL  PRODUCT 

04  30 

ADOPP 

LDX  «MCAND1 

? POINTER  TD  LS  BYTE  OF  MULTIPLICAND 

0440 

STX  FMPNT 

» STORE  POINTER 

0450 

LDX  “WORK  1 

; POINTER  TO  LS  BYTE  OF  PARTIAL  PRODUCT 

0460 

STX  TOPNT 

5  STORE  POINTER 

>70 

LDX  «*6 

;SET  PRECISION  COUNTER 

0480 

JSP  ADDER 

?ADD  MULTIPLICAND  TD  PARTIAL  PRODUCT 

iW*!! 

MADOPP 

LDX 

wWOPKb 

5  SET  POINTER  TO  MS  BYTE  OF  PARTIAL 

US  MM 

J  PRODUCT 

UV.1U 

LDV 

*  SET  PREC  ISION  COUNTER 

its.-i  o 

jsp 

POTATR 

*  ROTATE  PARTIAL  PRODUCT  RIGHT 

M*r«  ■:  m 

DEC 

CNTP 

5  DECREMENT  BIT  COUNTER 

<i*f,4  0 

DUE 

MULT IP 

5NQT  ZERO*  CONTINUE  MULTIPLYING 

nSSM 

LDX 

kUORK.6 

;else»  set  pointer  to  partial  product 

mSc.m 

LDY 

5SET  PRECISION  COUNTER 

•sro 

j:p 

POTATP 

; MAP E  ROOM  FOR  POSSIBLE  ROUNDING 

iISi.sm 

l  DX 

WORK  3 

*  SET  POINTER  TO  24TH  BIT  OF 

!iSmii 

;  partial 

PRODUCT 

Ur.  MU 

LDA 

PAGE  0  *  X 

I  FETCH  LS  BYTE-1  OF  RESULT 

Ur.  1  0 

POL 

A 

5 ROTATE  24TH  BIT  TO  SI6N 

ilr.J'  ij 

BPL 

PPEXFP 

.’IF  84 TH  BIT=0*  BRANCH  AHEAD 

.  Ir-.  ::it 

CLC 

’.CLEAR 

CARRY  FOR  ADDITIOON 

u>..4u 

L  DY 

5  SET  PRECISION  COUNTER 

t  ir.S  l.i 

LDH 

«$40 

5ADD  ONE  TO  23RD  BIT  OF  PARTAIL-PRQDUCT 

t Ir  r.  II 

ADC 

PAGE  0 * X 

;to  round  off  result 

I  lr;.  7  Ij 

I  TA 

WORK  3 

; STORE  SUM  IN  MEMORY 

i  ir.;-:  M 

C POUND 

LDA 

5 CLEAR  A  WITHOUT  CHANGING  CARRY 

l  Ir;.  'r*  U 

ADC 

PAGE  0  >  X 

5ADD  WITH  CARRY  TO  PROROGATE 

it  ,’M  n 

sta 

PAbE  M  *  X 

; STORE  IN  PARTIAL-PRODUCT 

i*7  1  0 

I  MX 

• INCREMENT  INDEX  POINTER 

i  * 0 

DEV 

;DCPEM£NT  COUNTER 

i  •  7  3  M 

DUE 

C ROUND 

;not  zero*  add  next  byte 

ii  74  M 

PREXFR 

LDX 

wFPLSWE 

5SET  POINTER  TO  FPACC  LSW-1 

ii  ’Mil 

stx 

TOPNT 

; STORE  IN  TOPNT 

ii  7  c.  1.1 

LDX 

« WORK 3 

5  SET  POINTER  TO  PARTIAL  PRODUCT 

ii  770 

LSW-1 

ii'GO 

STX 

FMPNT 

5  STORE  IN  FMPNT 

H7-4M 

LDX 

iif.4 

5SET  PRECISION  COUNTER 

ii:::um 

EXMLDV 

jsr 

MOV I NO 

;move  PARTIAL  PRODUCT  to  FPACC 

ii:  :  1  0 

.IIP 

FPNORM 

* NORMAL IZE  RESULT 

ii  i.i 

L  Dm 

:  I  GU  I 

;get  sign  storage 

ii:'::  u Ci 

DUE 

MUL  TEX 

JIF  NOT  ZERO*  sign  is  positive 

ii  .:4m 

LDX 

«FPLSW 

; ELSE* SET  POINTER  TO  FPACC  LS  BYTE 

ii:  :Sii 

LDY 

»§.3 

5SET  PRECISION  COUNTER 

ii  >;.i.i 

.HP 

COMPLM 

*  COMPLEMENT  RESULT 

ii.:;  7  0 

MULT EX 

PTI 

5  EXIT  1 

FPMUL 1 

ii:-:80 

C  k  ‘I I  GN 

LDA 

«'J.O 

*  SET  PAGE  PORTION  OF  POINTERS 

ii.:'*u 

STA 

TOPNT*- 1 

; STORE  IN  TOPNT 

ir  *  MO 

IT  A 

FMPNT*- 1 

*  STORE  IN  FMPNT 

u*  l  ii 

l  Dm 

JMilQRK  0 

;SET  POINTER  TO  WORK  AREA 

u*  c'0 

IT  ft 

TOPNT 

? STORE  IN  TDPNT 

ii  -*  50 

LDX 

srlS 

;SET  PRECISION  COUNTER 

ii  *4  0 

.HP 

CLRMEM 

*  CLEAR  WORK  AREA 

u**ii.i 

L  Dm 

s:MC  ANDO 

*  SET  POINTER  TO  MULTIPLICAND  STORAGE 

ir*e.  ii 

ITh 

TOPNT 

! STORE  IN  TOPNT 

n-*7  0 

l  d:  : 

K*4 

» SET  PRECISION  COUNTER 

ii  <80 

.HP 

CLRMEM 

*  CLEAR  MULTIPLICAND  STORAGE 

ii**ii 

LDA 

Kil 

5  INITIALIZE  SIGN  INDICATOR 

1  ji.iO 

STA 

I  I  GU  I 

5  BY  STORING  ONE  IN  SIGNS 

1  no 

LDA 

FPM3W 

; FETCH  FPACC  MS  BYTE 

1  .180 

DPL 

OPIGNT 

*  POSITIVE*  CHECK  FPOP 

89 


MMitfiMt 


t  0  5  0 

NE6FPA 

DEC 

signs 

5  IF  NEGATIVE*  DECREMENT  SIGNS 

1  M4  0 

LDX 

wFPLSW 

5SET  POINTER  TO  FPACC  LS  BYTE 

1  05  0 

LDY 

s:$3 

5  SET  PRECISION  COUNTER 

1  Me.  0 

JSR 

CQMPLM 

5  MAKE  POSITIVE  FOR  MULTIPLICATION 

1  07(1 

QPS6NT 

LDP 

FORMS W 

ilS  FPOP  NEGATIVE? 

1  080 

DM  I 

NEGOP 

;yes*  complement  value 

1  08(1 

RTS 

;else* 

RETURN 

1  I  00 

NEGOP 

DEC 

S  I GNS 

; DECREMENT  SIGNS  INDICATOR 

1  J  1  0 

LDX 

«FOPLSW 

5  SET  POINTER  TO  FPOP  LS  BYTE 

t  ICO 

LDY 

«ft3 

5  SET  PRECISION  COUNTER 

i  ISO 
1140 

JMP 

.EN 

CQMPLM 

*  COMPLEMENT  FPOP  AND  RETURN 

90 
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Module:  Convert  to  Floating  Point 


^  LORD  CONVE 

>PI? 


i)  :■  i  o 

? CONVERT 

II  .18  o 

5  THIS  CONVERTS  A  THREE 

BYTE  NUMBER  TO  FLORTING  POINT 

n  i  }:  0 

5F0PMAT. 

THE  NUMBER  TO 

BE  CONVERTED  IS  IN  NUM1*  8*  RND  3 

n  14  0 

SMITH  NUM1 

THE  LSI:.  THE 

RESULT  IS  IN  THE  FPLSM*  FPNSM*  FPRCCE 

ii  )5  0 

.EH  181 EO 

ii  1 16  0 

.o: 

iv'iro 

TSIGN 

. DE  10005 

ISIGN  INDICATOR 

ii  1 1:-:  i'i 

FPLSM 

.  DE  10008 

5 FPRCC  LEAST  SIG  BYTE 

iih^  i'i 

FPN3  M 

.HE  10009 

5 FPRCC  NEXT  SIG  BYTE 

01  fill 

FPMSM 

.OF  100  OH 

5 FPRCC  MOST  SIG  BYTE 

•  ii  10 

FPftCCE 

. DE  100 OB 

S FPRCC  EXPONENT 

0180 

NUM1 

.DS  1 

;lo  byte  of  number  to  BE  CONVERTED 

•  •I}:  ii 

HUMS 

.DS  1 

; MIDDLE  BYTE  OF  NUMBER  TO  BE  CONVERTED 

nl40 

NUN3 

.DS  1 

5  HIGH  BYTE  OF  NUMBER  TO  BE  CONVERTED 

nl?0 

PRGEO 

.  DE  1 0  0  0  0 

0160 

FPL S WE 

.DE  *0007 

Ot  70 

COMPLM 

.  DE  1.3016 

S COMPLEMENT  SUBROUTINE 

•  1 1 6  0 

POTATL 

. DE  *8000 

i ROTATE  LEFT  SUBROUTINE 

01 90 

ROTATP 

.DE  18001'.. 

** ROTATE  RIGHT  SUBROUTINE 

n.>00 

• 

10 

CONVER 

LDR  NUM1 

*  LORD  THE  NUMBER  TO 

0 

STR  FPLSM 

5  BE  CONVERTED  INTO 

II.}  30 

LDH  NUM8 

i  THE  FLORTING  POINT 

1 1.340 

STR  FPNSM 

!  ACT  IIMIIL  ATOP 

n.350 

LDR  HUM 3 

n.360 

STR  FPMSM 

nj'70 

LDR  «83 

'  1.390 

STR  FPftCCE 

H890 

• 

f 

H300 

FPNORM 

LDX  «TSIGN 

?  SET  POINTER  TO  SIGN  REGISTER 

ii  }:  1  0 

LDR  FPMSM 

; FETCH  FPRCC  MS  BYTE 

ii  3c! 0 

EMI  RCCMIN 

5  IF  NEGATIVE*.  BRANCH 

0330 

LDV  “100 

5  IF  POS*  CLEAR  SIGN  REGISTER 

n  34  0 

TYR 

•  1350 

STR  PRGEO » X 

5  BY  STORING  ZERO 

0  360 

JMP  RCZERT 

;then  test  if  fprcc- o 

0370 

ACCMIN 

STR  PRGEO* X 

?SET  SUGN  INDICATOR  IF  MINUS 

0  380 

LDV  “104 

«  SET  PRECISION  COUNTER 

0390 

LDX  “FPL S ME 

!SET  POINTER  TO  FPRCC  LS  BYTE-1 

0400 

.1SR  COMPLM 

; TWO'S  COMPLEMENT  FPRCC 

04 1  0 

ACZERT 

LDX  «FPMSM 

» SET  POINTER  TO  FPRCC  MS  BYTE 

0480 

LDY  «*04 

?SET  PRECISION  COUNTER 

0430 

LOOKO 

LDR  PRGEO* X 

*  SEE  IF  FPRCC- 0 

0440 

ENE  ACNONZ 

! BRANCH  IF  NONZERO 

0450 

DEM  ? DECREMENT  INDEX  POINTER 

/  460 

DEV  5  DECREMENT  BYTE  COUNTER 

1  470 

BNE  LOOT  0 

UF  COUNTER  NOT  ZERO*  CONTINUE 

91 


ii48  (i 

STY 

FPACCE 

•  *0 

NORMEX  RTS 

SEXIT  f 

V.  .,00 

AC NON Z  LDX 

©FPLSWE 

LDY 

«*04 

nr.^o 

JSR 

ROTATL 

0530 

LDA 

PAGE  0  *  X 

•  •*>40 

BMI 

ftCCSET 

•  •S'SO 

DEC 

FPACCE 

•  •*•*  o 

IMP 

ACNONZ 

nsro 

ACC-SET  LDX 

wFPMSM 

1 1*-.:?  0 

LDY 

«i-03 

JSR 

ROTATE 

•  •GOO 

LDA 

TSIGN 

UG1  0 

EEC 

NORMEX 

•  iGc'  0 

LDY 

wi.03 

•  i*-..  }:•;• 

5  SET  PRECISION 

COUNTER 

•  it-.. 40 

JMP 

COMPLM 

•  <►.50 

-EN 

SFPACC=0*  CLEAR  EXPONENT  TOO 
JRMALIZftTION  ROUTINE 
SSET  POINTER  TO  FPftCC  LS  BYTE- I 
SSET  PRECISION  COUNTER 
5  ROTATE  FPftCC  LEFT 
S  SEE  IF  ONE  IN  NS  BIT 
SIF  MINUS-  PROPERLY  JUSTIFIED 
IIF  POSITIVE*  DECREMENT  FPftCC  EXPONENT 
5 CONTINUE  ROTATING 
SSET  POINTER  TO  FPftCC  MS  BYTE 
SSET  PRECISION  COUNTER 
J COMPENSATING  ROTATE  RIGHT  FPACC 
SIS  ORIGINAL  SIGN  POSITIVE 
*  YES*  SIMPLY  RETURN 
SMITH  POINTER  AT  LS  BYTE 


RESTORE  FPftCC  TO  NEG  AND  RETURN 


Nodule:  Floating  Point  Divide 


Loan  fpdiv 


>I'R 


i)  I'l  1  o 

5  FLOATING 

POINT  DIVIDE 

i,i  Oc'  0 

5  DI VI DENT 

=FPACC 

1 1 0 3  0 

f  DIVISOR* 

FPOP 

i.i  04  0 

;  RESULT=FPRCC 

0  05  o 

.  BA  12860 

iin&o 

.OS 

diteO 

OUTCHR 

.  DE  13R47 

if  OUTPUT  R  CHRPRCTER 

diteo 

FMPNT 

.  DE  1 0  0  0  0 

'FROM  POINTER 

HI  00 

TOPNT 

.DE  100 OS 

» TO  POINTER 

il  1 1  0 

CNTP 

.DE  10004 

» COUNTER  STDRRGE 

ii  ISO 

ZIGNS 

. DE  10006 

fSIGN  INDICATOR 

i.i  I  30 

FPLSWE 

. DE  10007 

5 FPRCC  EXTENSION 

0140 

FPL  SW 

•DE  10008 

* FPRCC  LEAST  SIG  BYTE 

DI50 

FPNSW 

.DE  10008 

? FPRCC  NEXT  SIG  BYTE 

il  |  6  0 

FPNSW 

.DE  100 OR 

; FPRCC  NOST  SIG  BYTE 

mro 

FPRCCE 

.DE  1000E 

• FPRCC  EXPONENT 

HI  ft o 

FOLSWE 

.DE  10 OOF 

’FPOP  EXTENSION 

ill  90 

FDPLSW 

.DE  10010 

*  FPOP  LEAST  SIG  BYTE 

il,?  00 

FDPNSW 

•DE  10011 

JFPOP  NEXT  SIG  BYTE 

IIS  10 

FOPMSW 

.DE  100 IS 

JFPOP  NOST  SIG  BYTE 

•so 

FOPEXP 

.DE  10013 

5  FPOP  EXPONENT 

IIS  30 

WORK  0 

.DE  10014 

if  WORK  AREA 

•  ic'4  0 

WORK  1 

.DE  10015 

iic'50 

W0PK2 

. DE  10016 

HJ'tr*  0 

WORKS 

.DE  10017 

02?  0 

W0PK4 

.DE  10018 

MS  80 

WORK  5 

.DE  10018 

nS^O 

W0RK6 

•  DE  1001R 

Hi  00 

CKSIGN 

.DE  1S18F 

? CHECK  SIGN 

H  31  0 

NOVIND 

.DE  1S03R 

• MOVE  BYTES 

h3S0 

ROTL 

.DE  IS 001 

•ROTATE  LEFT 

ii  3  3  0 

POTflTL 

•DE  ISO 00 

? ROTATE  LEFT 

ii340 

POTRTP 

.DE  1S00C 

’ROTATE  RIGHT 

11 34 1 

CDMPLN 

.DE  ISO 18 

5 TWO'S  COMPLENENT  BYTES 

ii350 

FPNOPN 

.DE  1S1FR 

5  FLOATING  POINT  NOPHALIZTION 

0  360 

w 

9 

ii370 

FPDIV 

j:p  CKSIGN 

’ CLEAR  WORK  AREA  AND  SET  SIGNS 

M  380 

LDR  FFMS  1.1 

•CHECK  FOP  DIVIDE  BY  ZERO 

11.380 

BEG  DERPOR 

’ DIVISOR* 0*  DIVIDE  BY  ZERO  ERROR 

h400 

SUBEXP 

LDR  FOPEXP 

•’GST  DIVIDEND  EXPONENT 

H410 

SEC  *  SET  CRPPY  FOP  SUBTRACTION 

042  0 

SBC  FPRCCE 

? SUBTRACT  DIVISOR  EXPONENT 

"430 

STR  FPRCCE 

? STORE  RESULT  IN  FPACC  EXPONENT 

0440 

INC  FPRCCE 

? CQHPENSATE  FDR  DIVIDE  ALGORITHN 

0450 

SETDCT 

LDR  «:117 

•SET  BIT  COUNTER  STORAGE 

'60 

STR  CNTP 

f  TO  17  HEXADECIMAL 

••470 

DIVIDE 

JSP  SETSUB 

; SUBTRACT  DIVISOR  FROM  DIVIDEND 
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•  1430 

BMI 

NOGO  UF  PESULT  MINOS.  ROTPTE  ZERO 

• 

;  IN  QUOTIENT 

•  .  .00 

LUX 

JiFOPL  SM 

SET  POINTER  TO  DIVIDEND 

<•*>  1  0 

STX 

TOPNT 

STORE  IN  TOPNT 

H5?0 

LDX 

::UOPK  0 

SET  POINTER  TO  QUOTIENT 

iisso 

STX 

FMPNT 

STORE  IN  FMPNT 

ii54  0 

LDX 

;:iOS: 

SET  PRECISION  COUNTER 

ii*.50 

j :  p 

MOV I ND 

MOVF  QUOTIENT  TO  DIVIDEND 

1 i53  0 

SEC 

•  SET  CPPPY  FOP  POSITIVE  RESULTS 

nr.ro 

JMP 

OIJOPOT  J POTPTE  INTO  QUOTIENT 

1 i53  0 

DEPPOP 

LDP 

::  f.FF  J  SET  PSCII  FDP  ? 

i  ir.*  0 

JSP 

OUT C HR 

n*r.  0  0 

RTS 

0*  I  0 

NOGO 

CLC 

JNEGPTIVE  RESULT.  CLEPR  CPRRY 

■  •320 

G'UOPQT 

LDX 

itl.lOPK  4 

SET  POINTER  TO  QUOTIENT  LS  BYTE 

ii^.30 

LDV 

::13 

:  SET  PREC  ISION  COUNT 

0*:.4  0 

JSP 

POTL 

POTPTE  CPPPY  INTO  LSB  OF  QUOTIENT 

(.►.50 

L  DX 

sFOPLSW 

•  SET  POINTER  TO  DIVIDEND  LS  BYTE 

Of.  30 

L  DY 

«1> }: 

■  SET  PRECISION  COUNTER 

i  7  0 

JSP 

POTPTL 

POTPTE  DIVIDEND  LEFT 

iii».  3  0 

DEC 

•SNTP 

DECREMENT  BIT  COUNTER 

ti^.30 

BNE 

DIVIDE 

fIF  NOT  ZERO.  CONTINUE 

II 1*  1*1  M 

J ;  P 

SET  SUE: 

IDO  ONE  MORE  FOP  ROUNDING 

o;*r  o 

DM  I 

DVEXI T 

’  IF  MINUS.  NO  POUNDING 

dPe’O 

LDP 

Kit 

5  IF  0  OR  +.  PDD  I  TO  2 3RD  BIT 

or  30 

CLC 

» CLEPR  CPPPY  FOP  PDDITION 

07*40 

PDC 

WORK  4 

: ROUND  LS  BYTE  OF  QUOTIENT 

•  -50 

S  TP 

W0RK4 

f RESTORE  BYTE  IN  WORK  PREP 

.  .30 

LDP 

::  i  ft 

I CLEPR  P.  NOT  THE  CPPPY 

o;*7o 

PDC 

W0FK5 

’ PDD  CPPPY  TO  2ND  BYTE  OF  QOUTIENT 

0  730 

STP 

WORKS 

•STORE  PESULT 

07*30 

LDP 

sfiO 

f CLEPR  P.  NOT  THE  CPRRY 

Of!  00 

PDC 

M0PK3 

:PDD  CPPPY  TO  MS  BYTE 

•'!!■!  I  0 

’  OF  QUOTIENT 

iif  if  0 

STP 

I.10PK3 

•  STORE  RESULT 

Of:  30 

BPL 

DVEXIT 

•IF  MSB=0*  EXIT 

Of  :4  0 

LDX 

wWQRKG 

J ELSE  PREPPRE  TO  ROTPTE  RIGHT 

0:350 

LDV 

«1.  •: 

•SET  PRECISION  COUNTER 

0:-:30 

JSP 

POTPTP 

J CLEPR  SIGN  BIT  COUNTER 

o:-.T0 

INC 

FPPCCE 

•  CDMPENSPTE  EXP  FDP  POTPTE 

Hf;30 

DVEXIT 

LDX 

“FPL  S WE 

'SET  POINTER  TO  FPPCC 

Of:30 

STX 

TOPNT 

? STORE  IN  TOPNT 

IMOCI 

LDX 

s:  WORK  3 

*  SET  POINTER  TO  QUOTIENT 

0-'  t  0 

STX 

FMPNT 

f STORE  IN  FMPNT 

03?  0 

LDX 

“14 

• SET  PRECISION  COUNTER 

O'-*  3  0 

JMP 

EXMLDV 

« MOSJE  QOTIENT  TO  FPPCC 

Oc,4  0 

SETSUB 

LDX 

wMOPKO 

• SET  POINTER  TO  WORK  PREP 

0350 

STX 

TOPNT 

f STORE  IN  TOPNT 

033  0 

LDX 

«FF  L  SW 

'SET  POINTER  TO  FPPCC 

0370 

STX 

FMPNT 

*  STORE  IN  FMPNT 

0380 

LDX 

«*3 

'SET  PRECISION  COUNTER 

0830 

JSP 

MOVIND 

•  MOVE  FPPCC  TO  WORK  PREP 

1000 

LDX 

:M.?OPK  0 

.'PPEPPPE  FOP  SUBTPPCTION 

10 

S  TX 

TOPNT 

'STORE  POINTER  TO  DIVISOR 

1020 

LDX 

“FOPLSW 

'SET  POINTER  TO  FPOP  LS  BYTE-1 

94 


11*30 

STX 

FMPNT 

I "TOPE  POINTER  TO  DIVIDEND 

*  >40 

LDY 

«*0 

S INITIALIZE  INDEX  POINTER 

.  ,^0 

LDX 

#3 

' SET  PRECISION  COUNTER 

1  »>*0 

SEC 

;SET  CARRY  FOP  SUBTRACTION 

H170 

SUBR1 

LDA 

(FMPNT) 

•  Y  ? FETCH  FPOP  BYTE  (DIVIDEND) 

1 118O 

SBC 

(TOPNT> 

• Y  .SUBTRACT  FPACC  BYTE  (DIVISOR) 

1  ii^n 

STA 

(TOPNT) 

. Y  f STORE  IN  PLACE  OF  DIVISOR 

iron 

I  NY 

: ADVANCE  INDEX  POINTER 

1110 

DEX 

? DECREMENT  PRECISION  COUNTER 

i  rao 

BNE 

SUBR1 

SNOT  ZERO?  CONTINUE  SUBTR 

l  i  30 

LDA 

WORK? 

S SET  SIGN  BIT  RESULT  IN  N  FLAG 

1140 

RTS 

'RETURN  WITH  FLAG  CONDITIONED 

1 1 50 

EXMLDV 

JSR 

MOV IND 

(MOVE  PARTIAL  PRODUCT  TO  FPACC 

1  1*0 

JSR 

FPNOPM 

S NORMALIZE  RESULT 

1  1  70 

LDA 

SIGNS 

'GET  SIGN  STORAGE 

1  180 

BME 

MULTEX 

SIF  NOT  ZERO.  SIGN  IS  POSITIVE 

1 1  90 

LDX 

“FPL SW 

.'ELSE.  SET  POINTER  TO  FPACC  LS  BYTE 

1.00 

LDY 

*  SET  PRECISION  COUNTER 

1.10 

JSR 

COMPLM 

' COMPLEMENT  RESULT 

1  i'c'O 

MULTEX 

RTS' 

SEX  IT 

FPDIV 

li-30 

.EM 

j  Module:  Floating  Point  Output 

>1  DAD  FPOUT 
F'R 


nui  o 

'FLOATING 

POINT  OUTPUT 

ROUTINE 

iiii?0 

f  THIS  ROUTINE  PRINTS 

OUT  ft  FLDftT ING  PD I NT  BINARY  NUMBER 

mi  j:ij 

*  IN  OECI NHL. 

111141.1 

.  BA  1234  0 

iiii50 

.o: 

mi?0 

IOEXPD 

•  DE  ’1 00?  7 

? ID  EXPONENT  ST0FA6E 

ii  lift  o 

FPMS 1-1 

.  PE  1. 0  0  OR 

•  FF’ftCC  MOST  SIGNIFICANT  BYTE 

iiih  0 

FPL.  SI-1 

. DE  10009 

* FPftCC  LEAST  SIGNIFICANT  BYTE 

nj  I’lfi 

FNPNT 

.  PE  1 0  0  0  0 

' FROM  POINTER 

nf  10 

FPftCCE 

•PE  10 OOP 

? FPftCC  EXPONENT 

M20 

■SNTP 

. DE  10004 

? COUNTER  STORAGE 

n|30 

TOPNT 

.PE  1000? 

TTO  POINTER 

nf40 

IDS  TP 

. DE  100? 3 

J ID  STORAGE 

iil?0 

IDSTP1 

.DE  tOO? 4 

* I  0  STORAGE 

it  160 

IDS TP? 

.PE  100?  5 

510  STORAGE 

"170 

IDSTP3 

.DE  tOO?* 

J ID  STORAGE 

n  iso 

CDNPLM 

.DE  12018 

? COMPLEMENT  ROUTINE 

0 190 

ROTATE 

.PE  12000 

•ROTATE  LEFT 

"c'OO 

ROTATP 

.DE  12 DOC 

? ROTATE  RIGHT 

ii?  1  0 

FPX10 

.DE  12051 

? MULT I PLY  FPftCC  BY  10 

'20 

FPDIO 

.DE  1206ft 

: MUL T I PL  V  FPftCC  BY  0.1 

"2  30 

MOVIND 

.DE  12 OJft 

?  TRANSFER  ft  SECTION  OF  MEMORY 

•  14  0 

DECBIN 

.PE  12093 

n?50 

OUTCHR 

.PE  18A47 

’ OUTPUT  ft  CHARACTER 

•  -260 

FPOUT 

LDft  55 1 0 

1-270 

:tr  ioexpd 

'CLEAR  DECIMAL  EXPONENT  STORAGE 

i'c'S'0 

LDft  FPMS M 

US  VALUE  TO  BE  OUTPUT  NEG? 

1-290 

BMI  DUTNEG 

?  YES -MAKE  F’OS  AND  OUTPUT 

1  3  0  0 

LDft  5:1  RE: 

'ELSE*  SET  ASCII  CODE  FOR 

h  -:J  0 

BNE  ftHEftP 1 

' GO  DISPLAY  ♦  SIGN 

t-320 

DUTNEG 

ldx  5!  fpl  s  u 

?  S ET  POINTER  TO  LS  BYTE  OF  FPftCC 

0  3  30 

LPY  5:13 

* SET  PRECISION  COUNTER 

i'  >4  0 

JSR  CDNPLM 

' MAKE  FPftCC  POSITIVE 

i  -:50 

LDft  5:1ft D 

*  SET  ASCII  CODE  FOP 

10*0 

AHEAD 1 

JSR  DUTCHP 

? OUTPUT  SIGN  OF  RESULT 

0  370 

LDft  5:1EtO 

» SET  UP  ASCII  ZERO 

t.jftO 

JSR  DUTCHP 

? OUTPUT  ZERO  TO  DISPLAY 

0390 

LDft  5:1ftE 

TSET  UP  ASCII  DECIMAL  POINT 

04  00 

JSP  DUTCHP 

1 0UTPUT  DECIMAL  POINT 

»'410 

DEC  FPftCCE 

» DECREMENT  FPftCC  EXPONENT 

04c’ 0 

DECEXT 

PPL  DECEXD 

*IF  COMPENSATED*  EXP>=0 

04  30 

LDft  5:14 

'EXPONENT  NEG* ADD  FOUR  TO  FPACCE 

1-440 

CLC  'CLEAR 

CARRY  FOR  ADDITION 

0450 

ft PC  FPftCCE 

' ADD  FOUR  TO  FPftCC  EXPONENT 

04*0 

BPl  PEC  OUT 

*  IF  EXP>=0*  OUTPUT  MANTISSA 

»70 

JSP  fpxi  0 

*ELSE  MULTIPLY  MANISSA  BY  TEN 

»80 

DEC PEP 

LDft  FPftCCE 

'GET  EXPONENT 

96 


•  0 

JMP 

DEC EXT 

•REPEAT  TEST  FDP  >=0 

•  00 

DECEXD 

JIP 

FPPIO 

"MULTIPLY  FPACC  BY  0.1 

.  10 

JMP 

DEC PEP 

; CHECK  STATUS  DF  FPRCC  EXPONENT 

i'»5£0 

DEC DOT 

l  dx 

« IQS  TP 

J SET  UP  FDP  MOVE  OPERATION 

nS*:0 

STX 

TDPNT 

•  S-E T  TDPNT  TD  WORKING  REGISTER 

tiS4  0 

L  DX 

»FPLSM 

’ SET  PD  INTER  TD  FPRCC  LS  BYTE 

h*i*i0 

ST  77 

FMPHT 

: STORE  IN  FMPNT 

hSbO 

ld:: 

::13 

? 7ET  PRECISION  COUNTER 

i  ‘  TO 

j:p 

MOVIND 

' MOVE  FPRCC  TD  OUTPUT  REGISTERS 

II*.  so 

LDA 

"in 

liVid 

:ta 

ID* TP? 

•CLEAR  OUTPUT  REGISTER  MS  BYTE+1 

Ilf.  00 

ld:' 

« IDS TP 

•  SET  POINTER  TD  OUTPUT  LS  BY 

fir.  1  0 

LDY 

8$  3 

*  SET  PRECISION  COUNTER 

Hr.  80 

JSP 

PDTRTL 

J ROTATE  TO  COMPENSATE  FOP  SIGN  BIT 

Mr.  50 

JSP 

DEC  BIN 

? OUTPUT  REGISTER  X  10.  OVERFLOW 

Ur-40 

*  IN  MS 

BYTE  +1 

nr. SO 

COMPEN 

INC 

FPRCCE 

: INCREMENT  FPRCC  EXPONENT 

Hr. SO 

BEG 

□UTDIG 

•  OUTPUT  R  DIGIT  WHEN  COMPENSATION  DONE 

nr.ro 

ld:' 

“ i ns tp? 

:EL3E  ROTATE  RIGHT  TO  COMPENSATE 

Or.  8  0 

LDY 

«!4 

•FOP  ANY  REMAINDER  IN  BINARY  EXP 

hr. SO 

JSP 

PDTRTP 

? PERFORM  ROTATE  RIGHT  OPERATION 

o ;  *  0  o 

JMP 

CDMPEN 

» FERRET  LOOP  UNTIL  EXP=0 

07' I  0 

OUTDIG 

L  DA 

sf!.7 

; SET  DIGIT  COUNTER  TO  SEVEN 

nT'c'O 

STA 

CNTP 

?  FDP  OUTPUT  OPERATION 

07’ 50 

LDR 

ID* TP? 

? FETCH  BCD»  SEE  IF  FIRST  DIGIT  =  0 

07’4  0 

BEC 

ZEPODG 

; YES • CHECK  REMAINDER  OF  DIGITS 

fi  7’5  0 

DU TUGS 

L  DR 

IDS TP? 

•GET  BCD  FROM  OUTPUT  REGISTER 

i‘r5  0 

□PR 

«1.B0 

•FORM  ASCII  CODE  FOR  NUMBERS 

.  70 

JSP 

□IJTCHP 

<  AND  OUTPUT  DIGIT 

0780 

DECPDG 

DEC 

CNTP 

? DECREMENT  DIGIT  COUNTER 

0790 

BEC 

EXPDUT 

1=0. BONE  OUTPUT  EXPONENT 

0800 

JSP 

DEC  BIN 

•ELSE  GET  NEXT  DIGIT 

0810 

JMP 

□IJTDGS 

•'FORM  ASCII  AND  OUTPUT 

08c  0 

ZERODG 

DEC 

IDEXPD 

•'DECREMENT  EXP  FDR  SKIPPING  DISPLAY 

0830 

LDR 

I  DSTPc" 

•CHECK  IF  MANTISSA  =0 

0840 

BNE 

DECPDG 

•IF  NOT  ZERO.  CONTINUE  OUTPUT 

0850 

LDR 

IDS  TP I 

0880 

BNE 

DECPDG 

0870 

LDR 

IDS  TP 

0880 

BNE 

DECPDG 

0890 

LDR 

«1.0 

? MANTISSA  ZERO. CLEAR  EXPONENT 

0900 

STR 

IDEXPD 

091  0 

BEG 

DECPDG 

? BEFORE  FINISHING  DISPLAY 

0980 

EXPDUT 

LDR 

«*C5 

•  SET  UP  ASCII  CODE  FOR  E 

0930 

JSP 

OUTCHP 

•'  DISPLAY  E  FOR  EXPONENT 

094  0 

LDR 

IDEXPD 

•  TEST  IF  NEGATIVE 

0950 

BMI 

EXDIJTN 

•YES. DISPLAY  AND  NEGATE 

09b  0 

LDR 

«1.RB 

•  NO»  SET  ASCII  CODE  FOR  '  +  ' 

0970 

JMP 

AHEAD2 

? DISPLAY  EXPONENT  VALUE 

0980 

EXOUTN 

EDP 

SJ1FF 

•TWO'S  COMPLEMENT  EXPONENT 

09^0 

STR 

IDEXPD 

?TO  MAKE  NEG  VALUE  pos 

1  000 

INC 

IDEXPD 

:for  output  of  exponent  value 

1010 

LDR 

nfRD 

I  SET  ASCII  CODE  FOR 

20 

AHEAD2 

JSP 

OUTCHR 

•'OUTPUT  SIGN  OF  EXPONENT 

1030 

LDY 

«to 

•CLEAR  TEN'S  COUNTER 
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1  04  0 

Mi  SUB  I  ft 

I  •  M 

f  oro 

I  Oft  o 

i  o^o 

I I  oo 

i  no  tomuch 

1  1  ft  o 
1  1  30 
1  140 
1  150 
1  lftO 
1  170 
1  lfto 


LDA  IOEXPD  ? FETCH  EXPONENT 

SEC  :SET  CARRY  FOR  SUBTRACTION 

-  PC  “10  A  I  ' UPTRAC  T  TEN'S  FROM  EXPONENT 

PHI  TOHIJCH  ?IF  MINUS* READY  FOR  OUTPUT 

str  ioexfd  ;retore  POSITVE  RESULT 

I NY  ! ADVANCE  TEN'S  COUNTER 

JMP  SUP 1  ft  : CONTINUE  SUBTRACTION 

TYft  I  PUT  MS  DIGIT  INTO  A 

ORA  JitPO  J FORM  ASCII  CODE 

J-R  outchp  : output  tens  digit  tu  display 

LDA  IOEXPD  : FETCH  UNIT'S  DIGIT 

ORA  w?.PO  "  FORM  ASCII  CODE 

JSR  OUTCHP  ; OUTPUT  DIGIT 

RTS 
.  EN 


i 
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.  Nodule:  Convert,  Divide  and  Output  Floating  Point. 

LOAD  PRINT 
IP 


ii  1 1  o 

. BH  *£430 

H  ic'd 

.os 

1 1  i  ?  (I 

«  THIS  MO DHL  F  MILL  CONY 

EPT  R  THPEE  BYTE  D I VI SOP  RND  DIVIDEND 

III  14  0 

JTO  FLOATING  POINT  FORMAT.  DO  A  FLOATING  POINT  DIVIDE*  RND 

iii  IS  0 

'OUTPUT 

THF  RESULT  IN 

DECIMRL  FLOATING  POINT  FOPMRT. 

1 1 1  if.  0 

DIVIS  1 

.  d:  i 

;lo  byte  of  divisor 

11117  o 

DTVIS8 

.  PS  1 

; MIDDLE  BYTE  OF  DIVISOR 

1 1 1  ix  i;i 

D1  VIS? 

.  D  "  1 

SHIGH  BYTE  OF  DIVISOR 

1 1 

DVDND1 

.  d:  i 

SLO  BYTE  OF  DIVIDEND 

nJ  nn 

DVPND8 

.  DS  1 

: MIDDLE  BYTE  OF  DIVIDEND 

til  |  ii 

DVDND3 

.  d:  i 

J H I GH  BYTE  OF  DIVIDEND 

1 1 !  c  0 

CONVE 

.DE  181 E3 

? CONVERT  TO  FLDRTING  POINT 

ill  X ii 

FPDI V 

.  DE  18860 

J FLORTING  POINT  DIVISION 

lit  4  ii 

FPOUT 

.DE  id' 34  0 

? OUTPUT  FP  IN  DECIMRL 

ut  50 

FPL  SW 

. DE  100 08 

'FPRCC  LERST  SIGNIFICANT  BYTE 

1 1  r  x  ii 

FPNSM 

. DE  10009 

IFPhi.C  NEXT  SIGNIFICANT  BYTE 

mro 

FPMSW 

.  DE  100  OR 

? FPRCC  MOST  SIGNIFICANT  BYTE 

II 1 8  0 

FPRCCE 

.  DE  1. 00 OF: 

J FPRCC  EXPONENT 

HI  80 

FOPLSM 

.DE  1001 0 

' FPOP  LEAST  SIGNIFICANT  BYTE 

iic' no 

FOPNSM 

.DE  10011 

JFPOP  NEXT  SIGNIFICANT  BYTE 

10 

FOPMSM 

.  DE  1 0  0 1  8 

;FPOP  MOST  SIGNIFICANT  BYTE 

II 880 

FDPEXP 

.DE  10013 

• FPOP  EXPONENT 

0  c  30 

NUM1 

.DE  181 EO 

(•840 

hums 

.DE  181  El 

IIJ'SO 

NUfl  3 

.DE  18IE8 

Hl:>.(l 

m 

4 

oc-ro 

F'PINT 

TXA 

0880 

F'HR 

07' 90 

TVR 

ii  300 

F'HR 

0  3  1  0 

LDR  DVDND1 

JPIJT  DVDHD1*  8*  RND  3 

0  38  0 

STA  NUM1 

'  INTO  HUM I »  8*  RND  3 

0  3  3  0 

LDR  DVDND8 

0  ;4  0 

STA  NUM8 

n;-:S0 

LDR  DVDND3 

n  *:g  o 

STR  NLlMx 

0  3  7  0 

JSR  CONVE 

? CONVERT  DIVIDEND  TO  FP 

0880 

LDR  FPL '  l.l 

•PUT  FP  RESULT  INTO 

0?.90 

str  foplsw 

'  FPOP 

M4  00 

ldr  fpn  s  i.i 

04 1  0 

*  T  R  FOPH'1.1 

04  c'  0 

LDR  FPM8I.1 

04  3  0 

STA  FDPMSI.1 

044  0 

LDR  FPRCCE 

04 '<0 

ST R  FDPEXP 

GO 

ldr  DIVISI 

5 PUT  DIVISI*  8*  RND  3 

..  ,70 

i  TR  Hi  HI  1 

:  INTO  NUM 1 «  8  RND  3 

99 


ii4£0 

LDH 

DIVIS2 

*0 

■  Trt 

NUH2 

ii  ,00 

ldr 

DIVI S3 

n"5!  0 

str 

MOM? 

n'iJ-O 

j:p 

CONVE 

* CONVEPT  DIVI SOP  TO  FP 

•  iS  3  0 

j:p 

FPDIV 

IFF  DIVISION 

mv,4  0 

j  :p 

FPDUT 

IPPINT  DUT  PE SL1L T  OF  DIVI 

1 1‘,*5  0 

PLR 

•  ic,*r.  0 

TRY" 

nsro 

PLR 

ii1,-:  0 

TRK 

i  i*.f*  0 

PTS 

Hr.  00 

.EM 

Module:  Total  Mission  Parameters 


LORD  TOVAL 
PF' 

Mill  I)  .  PH  $2700 

niic'O  .03 

■  1 1 14 n  TDTFK1  .  D3  I  !L0  BYTE  OF  TOTAL  MISSION  FIXATIONS 

miMO  T0TFX2  .  D'S  I  ‘til  D  BYTE  OF  TOTAL  MISSION  FIXATIONS 

inifcO  T0TFX3  -I'*  1  ’HI  BYTE  OF  TOTAL  MISSION  FIXATIONS 

iturO  TODWL!  .IT  I  * LO  BYTE  OF  TDTAL  MISSION  DWELL  TIME 

mien  T0DWL2  .DS  !  *MID  BYTE  OF  TOTRL  MISSION  DWELL  TIME 

nn90  T0DWL3  .IT  I  ?HI  BYTE  OF  TOTRL  MISSION  DWELL  TIME 

iifOO  TRBLEI  .DF  *6000  *  LOCATION  OF 

Ml  10  TRBLE2  .  D E  it.  1  00  ?  FINRL  DRTR 

nlr.0  TABLE3  .  DE  $6  2  DO  ?  TABLE 

ill  SO  TABLE4  . 1'E  $6  300 

nl40  ; 

•  H50  « ADD  UP  THE  TOTRL  NUMBER  OF  FIXATIONS  AND  THE  TOTRL 

M160  ’’MISSION  DWELL  TIME  FOR  THE  DATA  MISSION.  THIS  IS 
11170  « DONE  FOR  INSTS  0-35’  NOT  FOR  BLINK,  GLITCH  AND 

U180  ’DATA  GONE. 


II I  *0 

TOVAL 

LDA 

«  0  0 

UNITIALIZE  TOTAL  FIXATIONS 

i it • 0  0 

STA 

TC1TFXI 

’’AND  TOTAL  DWELL  TIME 

IL-' 1  0 

ST  A 

T0TFX2 

JO 

sta 

T0TFX3 

•  0 

STA 

TODWl 1 

H..'4  0 

STA 

TODWLc' 

11350 

STA 

TODWL 3 

1 1.;>.  0 

LDX 

? LOCATION  OF  THE  LOW  BYTE  OF 

II.:- 70 

’’  DWELL  T IMF 

FDR  INST  1 

1136' 0 

LOOF'I 

LDA 

TABLE  1 ’X 

5 ADD  THE  DWELL  TIME 

113-60 

CLC 

:  FOR  AH  INSTRUMENT 

11  S' 00 

ADC 

TODWL 1 

;  TO  THE  TOTAL 

11  s  1 0 

STA 

TODWL 1 

J  MISSION  DWELL  TIME 

if-.- ?0 

I  NX 

iiS'Si'i 

LDA 

TABLET ’ X 

034  0 

ADC 

TODWL a 

0  350 

STA 

TODWLc' 

ii360 

INK 

0370 

LDA 

TABLE! »X 

11360 

ADC 

TODWL 3 

0390 

STA 

TODWL 3 

0400 

I  NX 

04 1  0 

CLC 

04£  0 

L  DA 

TABLE  1 , X 

?  ADD  THE  NUMBER  DF 

04  30 

ADC 

TDTFXI 

?  FIXATIONS  FDR  AN 

11440 

STA 

TQTFXf 

5  INSTRUMENT  TO  THE 

11450 

I  NX 

J  TOTAL 

MISSION  DWELL 

0460 

LDA 

TABLE! .X 

*  TIME 

••470 

ADC 

TDTFX2 

480 

STA 

TOTFX? 
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ii4'4H 

LOH 

::00 

HOC 

TDTFX3 

.10 

:th 

tdtfx3 

II*.,?  0 

cpx 

"tEC 

JHPE  HT  THE  END  QF  THELE  ! 7 

1 1*-'. i‘i 

BEO 

THBc" 

!IF  SO.  GO  TD  THBLEE 

i  IS4  0 

CLC 

l  lr.S  0 

TXH 

*  TRHNSFER  X  TD  HCC 

iiSr.ii 

HOC 

::tIE 

•HD  TO  NEXT  INST  IN  THELE  I 

hsto 

thx 

•  I*1!!?  0 

.IMP 

LOOP  I 

0*r.90 

THB£ 

L  OX 

«|.  1C 

JLOOK  HT  FIRST  INST  IN  THELE 

1  lr.  I'l  o 

lddpe 

LDH 

THELE^.K 

*  HOD  THE  DWELL  TIME 

i  ir.  |  0 

CLC 

J  FDP  HN 

INSTRUMENT 

1  iftc  0 

HOC 

TD0l.1L  I 

J  TD  THE  TDTHL 

Ilf;.  JO 

sth 

TD0l.1L  I 

:  MISSION  DWELL  TIME 

hi-.  4  0 

INK 

llr.f.M 

LOH 

THFLEE.X 

1  Ir.r.  0 

HOC 

TDONLc- 

nr.ro 

"TH 

TD0t.1L  £ 

1  Ir.ft  0 

I NX 

llr.'-^O 

1.0  H 

THFLE«?«  K 

nroo 

HOC 

TDOi.lL  J 

nr  f  0 

STH 

TD01.lL  3 

nr.?0 

I  NX 

nr*:  0 

CLC 

nr40 

LOH 

THPL  Ec‘«  K 

'HDD  THE  NUMBER  OF 

■  CSO 

HOC 

TOTFKI 

J  FIXHTIONS  FOR  HN 

nr*J0 

STH 

TDTFKt 

?  INSTRUMENT  TD  THE 

■ro 

INK 

J  TDTHL 

MISSION  DWELL 

nrao 

LOH 

THPL EE *X 

;  TIME 

nrf?0 

HOC 

TOTFXE 

lift  00 

*  TH 

TOTFXE 

oft  i  o 

LOH 

::  0  0 

1  iftc1 0 

HOC 

TDTFX3 

1  ift  J  0 

STH 

T0TFX3 

n:-:4  0 

CPX 

svIEC 

JHPE  HT  THE  END  DF  THBLE  £? 

Oft  SO 

EEC* 

THE  5 

JIF  *0»  GO  TO  THBLEE 

1 1:  0 

CLC 

n:;:rO 

TKH 

J TRANSFER  K  TD  HCC 

nft.ftO 

HOC 

5‘f.  1 E 

J GO  TD  NEXT  INS T  IN  THBLE  £ 

nftftO 

THX 

O'-«00 

.IMP 

LOOPS' 

n-  ij  0 

THF3 

L  OK. 

t:|.IC 

'LOOK  HT  FIRST  INST  IN  THBLE 

»'*-*<?*  0 

LOOP? 

L  OH 

THELE3*  K 

J  HOD  THE  DWELL  TIME 

o1-*  JO 

CLC 

5  FOP  HN  INSTRUMENT 

|f;*40 

HOC 

TDOML I 

J  TO  THE  TDTHL 

n»«.0 

sth 

TDOt.lL  I 

J  MISSION  DWELL  TIME 

IV  *t“.  0 

INK 

iv.ro 

LOH 

THELE3*  X 

ii*  *:50 

HOC 

TDOML E 

o'-i^O 

STH 

TDOi.lL£ 

I  MOO 

INK 

1  Ml  0 

LOH 

THELE3*  X 

v:o 

HOC 

TDOML  3 

»  Hj!0 

STH 

TDOML 3 
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1  rm  0 

ihx 

'  ’50 

i'LC 

•f>n 

LPR 

TRELE3.X 

: ADD  THE  HUMEEF  OF 

1  n70 

HpC 

TDTFX1 

;  fixrtioh:  fop  rh 

1 1  i:3  i.i 

:  tm 

TDTFX1 

?  INSTRUMENT  to  the 

1  ii*  n 

ih:: 

J  TOTRL 

M IS! 1 OH  PMELL 

1  1  00 

L  PH 

TABLE  3*  X 

J  TIME 

1110 

RPC 

TDTFXJ' 

1  1  c  0 

:tr 

TOTFXc' 

1  1  30 

LPR 

::  0  0 

1140 

RPC 

TDTFX3 

1  I5H 

5  TR 

T0TFX3 

1  1*0 

C  F‘H 

ssi.EC 

JAPE  RT  THE  EHD  OF  TRELE  3* 

1170 

EEC 

TRE4 

’ IF  SO.  GO  TO  TRELE4 

1  180 

CLC 

1  1*0 

txr 

«  TF'ANCFEF  X  TO  RCC 

lc'00 

RPC 

ssi-lE 

. GO  TO  HEXT  IHST  IH  TftELE  3 

1710 

trx 

l.-\?l.l 

JMP 

LOOP  3 

1330 

TRE4 

LDX 

ssi;lC 

.LOOK  RT  FIRST  INST  IH  TRELE 

1 1’4  0 

L00P4 

LPR 

TABLE4.  X 

?  ADD  THE  DWELL  TIME 

1  0 

CLC 

:  FDP  AN  instrument 

I  k:*o 

RPC 

TOPWL 1 

T  TO  THE  TOTRL 

1  4  •  7  0 

ZTR 

T0PI.1L  I 

«  MISSIOH  DWELL  TIME 

1  4  00 

I  MX 

I  4  *0 

LPR 

TAPLE4.  X 

1  00 

RPC 

TOPWL 3 

*  :10 

STR 

TDPI.1L8 

JO 

I  MX 

1  3  30 

LPR 

TABLE4.X 

1  -34  0 

RPC 

TOPWL  3 

1  3*10 

ZTR 

TOPWL  3 

1  3*0 

I  MX 

1  370 

CLC 

1  380 

LPR 

TRELE4  *  X 

JRDD  THE  HUMBER  OF 

I  3*0 

RPC 

T0TFX1 

?  FIXATIONS  FOR  RN 

14  00 

ITR 

T0TFX1 

?  INSTRUMENT  TO  THE 

M10 

I  NX 

J  TOTRL 

MISSION  DWELL 

1 4  JO 

LPR 

TRELE4.X 

?  TIME 

1  4  3  0 

RPC 

TOTFXc' 

1  44  0 

:tr 

TDTFXJ' 

1450 

L  PR 

SSI.IO 

14*0 

RPC 

TOTFX?. 

1470 

STR 

TOTFXC: 

1480 

CPX 

ss’|;EC 

JRRE  RT  THE  END  OF  TRELE  4? 

14*0 

EEC 

POHE 

JIF  SO.  DONE 

1500 

CLC 

1 M  0 

TXR 

: TRANSFER  X  TO  RCC 

1 58  0 

RPC 

ssi.tE 

'GO  TO  NEXT  INST  IN  TRELE  4 

1530 

TRX 

1540 

JMP 

L00P4 

1550 

DONE 

PTC 

15*0 

.EH 
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.  Nodule:  First  Table  Header. 


LOAD 

OUTPT 

PR 
iii'tl  0 

.  Eh 

1  c  y  5  o 

II  lift  0 

.  OS 

iiit30 

T  T  HIS 

ROUTINE 

PRINTS 

OUT  THE  FIRST  TABLE 

mi4  0 

T  COLUMN  HEADER 

ft.  THE 

TOTAL  NUMBER  OF  FIXATIONS 

n  11*10 

TIN  THE 

DATA  NI 

ft 5 1 ON  AND  THE  TOTAL  MISSION  DWELL  TIME. 

11060 

SPACE 

.  E  i’ 

o  070 

HERD1 

.  EY 

I N  ft  T  •" 

1 1  Oft  0 

HEADft 

.  EY 

TOTAL 

NUMBER ' 

ii  n^O 

HEADS: 

.  BY 

TOTAL 

DWELL 

nf  00 

HEAD4 

.  BY 

MEAN  DWELL 

mm 

HEAD5 

.  EY 

•PROPORTION  OF 

1 1  1  ft  0 

HEADft 

.  BY 

PROPORTION  OF' 

of  30 

HEADft 

.  BY 

HUM 

0  f  4  0 

HEADS 

.  EY 

OF  F i: 

’AT  IONS 

of  50 

HEAD9 

.  EY 

•  TIME 

ii  1 6  0 

HE AD 10 

.  EY 

TIME  ' 

Of  70 

HEAD 11 

.  BY 

TOTAL 

TIME  ' 

it  t  8  0 

HEADlft 

.  BY 

TOTAL 

FIXATION 

ill  90 

UNDER 

.  BY 

_ 

oft  00 

NUM1 

.DE 

1ft  fEO 

’ LO  BYTE  OF  NUMBER  TO  BE  CONVERTED  TO  FP 

■10 

NUMft 

.BE 

1ft  1 E  1 

TMIDDLE  BYTE  OF  HUMBER  TD  BE  CONVERTED 

OftftO 

NUMft 

.DE 

1ft  1  Eft- 

THI  BYTE  OF  NUMBER  TD  BE  CONVERTED 

Oft  3  0 

TOTFX 1 

.DE 

left  00 

TLO  BYTE  OF  TOTAL  MISSION  FIXATIONS 

oft  4  0 

TOTEVft 

.  DE 

1ft  ft  01 

.'MI  IDLE  BYTE  OF  TOTAL  MISSION  FIXATIONS 

0,350 

T0TFX3 

.DE 

1ft  ft  Oft 

THI  BYTE  OF  TDTAL  MISSION  FIXATIONS 

•  iftft  0 

TQDU1L1 

•  DE 

1870  3 

TLO  BYTE  OF  TOTAL  MISSION  DWELL  TIME 

nft‘70 

T0PI.1L  ft 

.DE 

1ft  7  04 

TMIDDLE  BYTE  DF  TOTAL  MISSION  DWELL  TIME 

oftftO 

TO  DHLS: 

.DE 

1ft  ft  05 

THI  BYTE  OF  TOTAL  MISSION  DWELL  TIME 

itft^O 

TOTFX 

.  BY 

TOTAL 

NUMBER  OF  FIXATIONS  IN  THE  DATA  MISSION3  ' 

•  1 3  0  0 

TOTDl.lL 

.  EY 

'TOTAL 

DWELL  TIME  IN  THE  DATA  MISSION*  ' 

0  3 1  0 

CPLF 

.  DE 

1S34D 

.'CARRIAGE  RETURN  AND  LINE  FEED 

0311 

CONVE 

.  DE 

1ft  IE  3 

T CONVERT  TD  FP 

o  3 1  ft 

FPOIJT 

.DE 

tft  34  0 

T PRINT  FP  RESULT 

oftftO 

□UTCHP 

.DE 

IS  A  4  ft 

T OUTPUT  A  CHARACTER 

o  ft  3  0 

OL1TPT1 

L  DY 

“4  ft 

1 1  ft  4  0 

L  DX 

::  0  0 

0  350 

JSR 

CPLF 

T GO  TO  NEXT  LINE 

oftftO 

LOOPA 

L  DA 

TOTFX.: 

X  T PRINT  OUT  THE 

ii  370 

.1  ;p 

OUTCHP 

T  TOTAL  NUMBER  OF 

1 1  ftft  0 

I  NX 

T  FIXATIONS  IN  THE 

oft^O 

DEY 

*  DATA 

MISSION 

04  00 

BNE 

LOOPA 

041  0 

LDA 

SPACE 

04ft  0 

JSR 

OUTCHR 

04  30 

LDA 

TOTFX 1 

140 

ft  TA 

N».M11 

450 

LDA 

TOTFXft 
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•  •480 

ST A  NUM2 

ro 

LDA  TDTFX3 

*14  AO 

ST A  NUM 3 

i*4  AO 

jsr  conve 

ns  00 

JS  R  FP0L1T 

i*s  i  o 

JSR  CPLF 

*  *S2  0 

LDY  W-38 

i  iS  3  0 

ldx  »00 

1 1S4  0 

LDOPB 

LDA  TOTDWLjX 

I'SSO 

JSR  OUT C HP 

l  'Sir.  0 

I NX  STIME 

i*S70 

DEY 

nSxO 

BNE  LDOPB 

IlSAO 

LDA  SPACE 

Hr  00 

JSR  OUT C HP 

l.*r.  1  0 

LDA  TODWLI 

nr.  20 

ST A  HUM 1 

nr.  30 

LDA  T0DML2 

lir.4  0 

ST A  NUM2 

nr.  so 

LDA  T0DWL3 

1  ir.8  0 

ST A  HUM? 

nr.,"0 

JSR  CONVE 

nr.  All 

JSR  FPOUT 

Hr.  All 

J'P  CPLF 

0  7  0  0 

ISP  CPLF 

0710 

S 

"720 

SPRINT 

OUT  HEADER 

-30 

JSP  CPLF 

.74  0 

L.  DX  o  0  0 

i.i  7S0 

LDY  »4 

07*30 

jsr  hout 

0770 

LDY  of. 02 

0780 

JSR  PPSP 

ii7Ai> 

LDY  o|2 

0800 

JSR  HOUT 

"310 

LDY  04 

0820 

JSP  PPSP 

0830 

LDY  oil 

0840 

JSR  HOUT 

0850 

LDY  04 

0880 

JSR  PPSP 

0870 

LDY  it  to 

0830 

JSR  HOUT 

08  AO 

LDY  04 

oao  0 

JSR  PPSP 

0  a  1 0 

LDY  of? 

0920 

JSR  HOUT 

0930 

LDY  08 

0940 

JSR  PPSP 

0950 

LDY  ol3 

09*30 

JSR  HOUT 

OA70 

JSP  CPLF 

"aao 

LDY  ol 

*90 

JSR  PPSP 

1000 

LDY  o? 

S CONVERT  FIXATIONS  TO  FP 
"PRINT  FLOAT  I N6  POINT  RESULT 

;go  to  next  line 


SPRINT  OUT  THE 
S  TOTAL  MISSION  DWELL 


* CONVERT  DWELL  TIME  TO  FP 
*  OUTPUT  THE  RESULT 

5  SKIP  A  LINE 

?X  IS  THE  POSITION  IN  HEAD1-12 

"V  IS  THE  NUM  OF  CHARS  DR  SPACES  TO  PRINT 

SPRINT  OUT  PORTION  OF  HEADER 

; PRINT  OUT  2  SPACES 

S PRINT  12  CHARS  OF  HEADER 

SPRINT  OUT  4  SPACES 

"PRINT  II  CHARS  OF  HEADER 

5 PR I NT  4  SPACES 

SPRINT  10  CHARS  OF  HEADER 

S PR I NT  4  SPACES 

SPRINT  13  CHARS  OF  HEADER 

SPRINT  2  SPACES 

SPRINT  13  CHARS  OF  HEADER 
'GO  TO  NEXT  LINE 

SPRINT  I  SPACE 
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1 1ll  o 

j:r 

HDUT 

80 

LDY 

-c* 

I  0  30 

JS  R 

PRSP 

1 04  o 

LDY 

«18 

1  050 

JSR 

HDUT 

1  08  0 

LDY 

»»  »‘ 

i  070 

JSR 

PRSP 

I  080 

LDY 

«4 

1  080 

JSR 

HDUT 

i  too 

LDY 

«11 

1110 

JSR 

PRSP 

1  ISO 

LDY 

«4 

I  1  30 

JSR 

HOUT 

1140 

LDY 

“3 

1 150 

JSR 

PRSP 

1  180 

LDY 

::  1  0 

i  irn 

JSR 

HDUT 

1  180 

LDY 

«  3 

1  180 

JSR 

PRSP 

1  8  0  0 

LDY 

::14 

I  £  1  0 

JSR 

HOUT 

i  88  o 

JSR 

CRLF 

I  840 

LDY 

«78 

1850 

LOOP! 

LDR 

UNDER 

1880 

JSR 

OUTCHP 

1870 

DEY 

1880 

BNE 

LDDP1 

•80 

JSR 

CRLF 

1300 

JSR 

CRLF 

1301 

RTS 

1  310 

?  SUBROUTINE  TD  PRINT 

1  380 

HDUT 

LDR 

HERD1 • X 

I  330 

JSR 

UUTCHR 

1  34  0 

I  NX 

1350 

DEY 

I  380 

BNE 

HDUT 

1  370 

PTS 

1  380 

:  SUBROUTINE  TP  PRINT 

1  380 

PRSP 

LDR 

SPRCE 

14  00 

JSR 

OUTCHR 

1410 

DEY 

1 480 

BNE 

PRSP 

14  30 

PTS 

1  440 

.EN 

? PR I NT  3  CHOPS  OF  HERDER 

? PRINT  8  SPRCES 

? PRINT  3  CHARS  DF  HERDER 

5 PRINT  7  SPACES 

'PRINT  4  CHARS  DF  HERDER 

'PRINT  II  SPRCES 

'PRINT  4  CHRRS  DF  HERDER 

? PR  I NT  8  SPRCES 

; PRINT  10  CHRRS  DF  HERDER 

? PRINT  3  SPRCES 

? PR I NT  14  CHRRS  DF  HERDER 

? UNDERLINE  THE  HERDER 

;to  next  line 

5  TO  NEXT  LINE 
CHRRS  FROM  HERD 


Y  SPRCES 


Module:  Output  First  Table 


> LORD  OUTTB 

>  pp 


mil  0 

.  BH 

18H4  0 

imp'll 

mi  3  ii 

CPLF 

.  DE 

■1834 D 

?  CHPPIHGE  PETIJPN  HND  LINE  FEED 

i  ni4  ij 

DIJTCHP 

.  BE 

1.8H47 

: OUTPUT  H  CHHPHCTEP 

iiiiSO 

NUMBER 

.  BY 

01  0? 

03  04  05  06  07  08  09  10  11  18  13 

Mill;.  0 

NIJMB1 

.  BY 

15  16 

17  1:3  19  80  81  8c‘  83  84  85  ’ 

iiii70 

SF'HC  e 

.  BY 

ii  nft  i'i 

GL I TCH 

.  BY 

GUT 

ii  1190 

BLINK 

.  BY 

BL  NK ' 

HI  00 

DHTHGN 

.  BY 

DHGN ' 

m  1  0 

PE  STB 

.BE 

•J.8BF8 

OJ3-0 

LDTHB 

.DE 

10  080 

01  30 

HI  TAB 

.DE 

$  0  08E 

iU40 

V 

1 

m?o 

;  PRINT 

□LIT  THE 

INFO  FDP  EACH  INST?  GLITCH?  BLINK? 

1*160 

?HND  DATA  GONE 

PDU  BY 

POM 

ii!  70 

OUTTB 

LDY 

t:4 

nl  80 

LDX 

«00 

0190 

LD0P8 

ldh 

GL I TCH? 

s? 

O800 

JSP 

DIJTCHP 

10 

INX 

11880 

DEY 

oJI-iO 

BNE 

LDOP8 

i*84  0 

LDH 

SPACE 

"PRINT  1  SPHCE 

Ii870 

.ISP 

DIJTCHP 

0860 

L  DX 

it  0  0 

■  '370 

LDH 

i:  0  0 

03-80 

STH 

LDTHB 

0890 

LDH 

it  $60 

0  3  0  0 

STH 

HITHP 

? POINT  TO  TABLE  1 

081  0 

JSP 

PE  S  TB 

T PRINT  OUT  POU1  FOR  BLINK 

0380 

JSP 

CPLF 

? GO  TO  NEXT  LINE 

ii  3  30 

LDX 

it  00 

0  34  0 

LDY 

“4 

0  350 

LDDP3 

LDH 

BLINK?? 

<- 

0  36  0 

JSP 

DIJTCHP 

? PRINT  HEADER  FDP  BLINK 

0370 

INX 

0  380 

DEY 

0  390 

BNE 

LDDP3 

04  0  0 

LDH 

SPHCE 

04 1  0 

JSP 

OUTCHP 

? PRINT  1  SPACE 

0480 

LDX 

« 1*88 

04  30 

LDH 

:t  00 

0440 

STH 

LDTHB 

0450 

LDH 

it  1.60 

60 

STH 

HITHB 

.470 

JSP 

PEITB 

« PRINT  OUT  ROM  FOR  BLINK 

14 
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H4A0 

JSR 

CRLF 

••*90 

LDX 

s:  0  0 

,00 

L  DY 

s:4 

nSI  0 

L00P4 

LDA 

DATAGN. X 

•  •5S0 

J  SR 

OUTCHR 

H530 

I  NX 

•  i540 

DEY 

ii550 

BNE 

L00P4 

n5G0 

LDA 

S  PAC  E 

•i5?0 

JSR 

OUTCHR 

ii590 

LDX 

::t44 

n590 

L  DA 

*,f  ij  u 

1 1»-.  0  M 

sta 

LOTAB 

Mr.  1  0 

LDA 

::$60 

nt.  90 

STA 

HI  TAB 

n*.  50 

J.R 

RE  STB 

lit:.  4  0 

J.'R 

CRLF 

Hi-. 50 

L  DX 

: :  f.6  6 

1  It.f.  0 

L  DY 

::  o  0 

ot-.ro 

BACK  I 

JSR 

FORMAT 

in.  9  i.i 

LDA 

: :  0  0 

lit. 90 

STA 

LOTAB 

0700 

LDA 

«*  *J«  Pi  U 

071  0 

STA 

HI  TAB 

o7S0 

JSR 

RE  STB 

0730 

JSR 

CRLF 

o740 

CPX 

«tCC 

0750 

EEC 

NEXTS 

60 

TXA 

0770 

CLC 

n  730 

ADC 

»fSS 

o790 

TAX 

Of:  00 

JHP 

BACK  1 

o: :  I  0 

NEXTS 

LDX 

::  0  0 

Of  ISO 

BACKS 

JSR 

FORMAT 

113  30 

LDA 

::  0  0 

0340 

STA 

LOTAB 

0: 150 

LDA 

«161 

0360 

STA 

HI  TAB 

0370 

JSR 

RE  STB 

0330 

JSR 

CRLF 

Ur  *90 

CPX 

;:|.CC 

ir  *00 

BEO 

NEXT  ~i 

(7-110 

TXA 

i'7.9  0 

CLC 

0930 

ADC 

«*ss 

0940 

TAX 

0950 

JMP 

BACKS 

0«*60 

NEXT3 

L  DX 

«  0  0 

0970 

BACK  3 

JSR 

FORMAT 

0<*80 

LDA 

«oo 

0990 

STA 

LOTAB 

1000 

LDA 

w*6S 

10 

STA 

HITAB 

I  uSO 

JSR 

RESTB 

;go  to  next  line 

?PR I NT  HERDER  FOR  DRTR  GONE 


: POINT  AT  TABLE  1 
J PRINT  ROM  FOP  DRTR  GONE 
JGO  TO  NEXT  LINE 

J PR I NT  HERDER  FDR  THE  INST 

S POINT  RT  TABLE I 

."PRINT  OUT  ROM  FOR  THAT  INST 

IGO  TO  TABLES  IF  DONE  WITH  TABLE I 

;GQ  TO  NEXT  INST  IN  TABLE I 

? PRINT  HEADER  FOR  THE  INST 

5 POINT  TO  TABLES 

? PRINT  OUT  ROW  FOR  AN  INSTRUMENT 
?IF  DONE  WITH  TABLES  GO  TO  TABLE3 

?GO  TO  NEXT  INST  IN  TABLES 

*  PR I NT  HEADER  FOR  THE  INST 

*  PRINT  OUT  ROW  FOR  AN  INST 


108 


1  «*30 

JiR  CPLF 

•40 

CPX  »*CC 

*050 

BEQ  NEXT4  SGO  TO 

TRBLE4  IF  DONE  WITH  TRBLE3 

iu£0 

TXR 

1 117*0 

CLC 

1  080 

RDC  «t88  SGO  TO 

NEXT  INST  IN  TRBLE3 

1  090 

TRX 

f  100 

.IMP  BRCK3 

1110 

NEXT4 

L  DX  w  0  0 

1 1 80 

BRCF4 

j:p  fopmrt  sprint 

OUT  HERDER  FOP  THE  INST 

J  130 

LDR  WOO 

1  140 

i  TR  LOTRB 

1  150 

LDR  wtt.3 

1180 

STR  HITRB 

1  170 

JIR  PE  IT  I:  SPPINT 

OUT  ROW  FOR  RN  INST 

1  180 

.IIP  CPLF 

1190 

CPX  wf.CC 

1c' 00 

B EC*  DONE  ?  DONE 

WITH  RLL  FOUR  TRBLES 

1  £  1  0 

TXR 

1.380 

CLC 

1830 

RDC  w  1.22  *  GO  TQ 

NEXT  INST  IN  TRBLE4 

1840 

TRX 

1850 

• 

JMP  BRCK4 

1880 

DONE 

RTS 

1870 

:  ROUTINE 

TO  PRINT  THE  HERDER 

FOR  ERCH  INST  NUMBER 

1880 

FORMRT 

LDR  SPRCE 

1 890 

JiR  OUTCHP 

'  300 

LDR  NUMBER!. V 

-  .310 

JiR  OUTCHR 

1380 

I  NY 

1330 

LDR  NUMBER-.  Y 

1  340 

JiR  OUTCHR 

1350 

I  NY 

1380 

LDR  NUMBER- Y 

1  370 

JiR  OUTCHR 

1  380 

I  NY 

13*0 

JiR  OUTCHR 

1400 

RTS 

1410 

.EN 

109 


Module:  Output  Row  of  First  Table  -  called  by  Output  First 
Table  module. 


LLWD  RE  STB 


mil  0 

. Bft  IS BE  0 

HUSO 

.OS 

im30 

NUM1 

. DE  1c 1 E  0 

iih40 

NUM2 

. DE  18! El 

1 1  h5  0 

NUN? 

.DE  18JE8 

PRINT 

•  DE  184  3* 

ii  070 

DIVISI 

•  DE  18  4  3  0 

1 1 08  0 

DIVIS8 

.DE  1.84  3 1 

P I V  IS  3 

. DE  184  38 

Hi  00 

DVDNPI 

.DE  18433 

l  ■  II  o 

DVDND8 

.DE  184  34 

II  180 

PVDND3 

. DE  184  35 

Hi  so 

TOTFXI 

. DE  I87u0 

H 1  4  0 

T0TFX8 

.DE  18701 

nI50 

TOTFX3 

.DE  18708 

n ;  *  o 

TODML I 

•DE  18703 

Hi  70 

TDDWLc' 

•DE  18704 

in  80 

TODWL3 

.DE  18705 

h  J  0 

CDNVE 

.DE  181 E 3 

n.  00 

FPOUT 

.DE  1834  0 

1  0 

SPftCE 

.  BY 

.880 

OUTCHR 

.PE  18 ft 4 7 

II.' 3 0 

ZEROFX 

.DS  1 

II. '40 

ZERODL 

.D3  1 

1 1.  0 

ZERDUT 

.BY  >0.  0 0 0 0 1 

H.  '51 

COUNT 

.DS  1 

ii.  *0 

• 

* 

ii,  '70 

J ROUTINE 

TO  PRINT  OUT  PI 

ii. '80 

RESTS 

TYft 

ii.«h;i 

RHft  J ' ft VE  V 

h  :00 

LDft  »1FF 

H  UO 

STft  ZEROFX 

nSc'O 

STft  ZERODL 

ii  :  30 

TXft  J PR  I NT 

ii  1:4  0 

CLC  J NUMBER 

u;:50 

ftDC  k 3 I 

ii:*0 

TftY 

ii  1:7  0 

LDft  '18D> . Y 

H.;:ftO 

STft  NUM 1 

nSftO 

I  NY 

H400 

LDft  <r18P> . Y 

n4 1 0 

STft  NUM8 

•  1480 

LDft  si 00 

h430 

STft  NUM 3 

H440 

LDft  HUM! 

••450 

BNE  HOZER! 

«*0 

LDft  NUMS 

0470 

BNE  N0ZER1 

5 NUMBER  TO  BE  CONVERTED  TO  FLOATING  PT 


5  ROUTINE  TO  CONVERT  TO  FP,  DIVIDE*  ft ND  PRINT 

JLO  BYTE  OF  DIVISOR 

JMIP  BYTE  OF  DIVISOR 

.'HI  BYET  OF  DIVISOR 

JLO  BYTE  OF  DIVIDEND 

* MI D  BYTE  OF  DIVIDEND 

.'HI  BYTE  OF  DIVIDEND 

JLO  BYTE  OF  TDTftL  MISSION  FIXftTIONS 

"MID  BYTE  DF  TDTftL  MISSION  FIXftTIONS 

JHl  BYTE  OF  TDTftL  MISSION  FIXftTIONS 

U.0  BYTE  OF  TDTftL  MISSION  DWELL  TIME 

'MID  BYTE  OF  TDTftL  HI SSI DM  DWELL  TIME 

J H I  BYTE  OF  TDTftL  MISSION  DWELL  TIME 

.'CONVERT  TO  FP 

J PR I NT  FP  RESULT 

f OUTPUT  ft  CHftRftC TER 
J  EET  TO  ZERO  IF  FIXftTIDNS=0 
JiET  TO  ZERO  IF  DWELL  TIME=0 


INT  DOT  RESULTS  FOR  THE  INSTS  IN  TftBLEI 


.'SEE  IF  HUMBER  OF 
;  FIXftTIONS  =  0 


1 


0480 

LDR  NUM?. 

BNE  NOZER* 

•  00 

LDR  »oo 

?IF  SO.  PRINT  DOT  ZEROS 

05 I  0 

STR  ZEROFX 

0520 

JZR  PRZERO 

0*.  3  0 

JMP  NEXT! 

054  0 

NDZER1 

TXR 

l‘l*.  *:•  M 

PHH 

Ii551 

tyr 

PHR 

ii  SE  0 

JZR  C ON VE 

OT.ro 

J'R  FPQI.1T 

: PRINT  RESULT 

o571 

PLR 

0572 

TRY 

n580 

PLR 

IlS-OI 

TRX 

Of.  0  0 

NEXT  1 

LDR  SPRCE 

III:.  J  0 

JZF  OUT CUP 

; PRINT  R  SPRCE 

lit.  20 

TXR  ; PRINT 

OUT  TOTRL 

iif.  50 

CLC  ;  DWELL 

TIME 

0*4  0 

RDC  «28 

ut.  50 

TRY 

0*60 

LDR  Pf.8D>»Y 

? DWELL  TINE  FDR  INST 

nt.ro 

STR  NIJM 1 

Hf. 80 

I  NY 

0880 

LDh  .  Y 

•  MI P  BYTE  OF  DWELL  TIME 

or  oo 

STR  NUM£ 

■  rio 

I  NY 

VO 

LDR  f*2  n>.Y 

5  HI  BYTE  DF  DWELL  TIME 

0730 

STR  NUM3 

0740 

LDR  NUN  I 

;SEE  IF  DWELL  TIME 

0750 

SHE  NDZERc' 

:  I S  ZEPC 

it  760 

LDR  NMM2 

0770 

BNE  NDZER2 

o  78  0 

LDR  NUN 3 

h780 

EHE  NDZER2 

1*800 

LDR  « 00 

JIF  S0»  PRINT  DOT  ZEROS 

o8 1  0 

STR  ZERODL 

iii.'c'O 

JSR  PRZERD 

08  30 

.IMP  NEXT2 

Of:  4  0 

N0ZER2 

TXR 

0850 

PHR 

0851 

TVR 

0858 

PHR 

•  i860 

JZR  CDNVE 

ii::70 

JZ R  FPOUT 

; PRINT  RESULT 

o87! 

PLR 

of:  78 

TRY 

1.188  0 

PLR 

0880 

trx 

ir»00 

NEXT2 

LDR  Z PRCE 

08 1  0 

J  IP  QIJTCHR 

* PRINT  R  SPRCE 

11  : PRINT  MERN  DWELL  TIME* DWELL  TIME'NUM  OF  FIXRTIDNS 

(  -hi  TXR 

Yf'MO  CLC 


111 


n  rt 

RDC  «c3 

TRY 

.  rn 

LDR  ZEPODL 

ir ii 

BHE  NOZEP  ?. 

' JUMP  IF  RESULT  NOT  ZEPO 

H  *x! 

LDR  ZEPOFX 

ii*:-:,? 

DUE  NOZEP 3 

1 1  0 

j:p  PPZEPO 

f PPINT  OUT  ZEROS 

1  M  MM 

jmp  next? 

1  "t  II 

NOZEP3 

L  DR  *'  Li''  D  ■  .  V 

» LOW  BYTE  OF  DWELL  TIME 

1  II, 'll 

:Th  D’.’DND! 

111-:  II 

I  MY 

t  1 1.|  I  I 

L  DR  '"|.,  Ti  • .  v 

"MID  Dl’TE  OF  DWELL  TIME 

1  ll*i  I  I 

TTR  DVDND3 

1  *  1*7,  II 

I  NY 

1  M. 'll 

LDR  •  f-c'D  •  *  V 

JHI  BYTE  OF  DWELL  TIME 

1  0 

!TR  DVDND3 

t  ir* M 

I  NY 

1  :  ih'i 

LDR  1  tc  D  1  *  Y 

?LD  DYTE  OF  NUMBER  DF  FIXATIONS 

t  !  1  0 

:tr  d i v i : i 

t  ;  3  M 

I  NY 

1  :  ■:  0 

LDR  'IcD 1  •  Y 

•*HI  BYTE  OF  NUMBER  OF  FIXATIONS 

1  Mil 

str  d i v i : i 

1  I  Vi 

L  DR  is  0  0 

1 :  *:  o 

:  TR  D I V I  :  3 

1 1  rn 

rp  PRINT 

.’DWELL  TIME  NUM  OF  FIXATIONS- 

1  !*M 

’□NT PUT  RESULT  IN  FP 

i  iro 

NEXT  3 

LDR  SPRUE 

•  n  n 

jsp  outchp 

"PRINT  R  SPACE 

TO 

:  PE  I NT 

PROPORTION  OF  TOTRL  TIME=OWELL  TIME  TOTAL  MISSION 

1  i'J  i'i 

: DWELL 

TIMF 

1 1 ' 0 

t::r 

1  tt  4  0 

CLC 

1 1'*«  ii 

RDC  licit: 

I  ,>•  M 

TRY 

1  <-.■  7  0 

LDR  ZEPODL 

1  iV  3  ft 

DNE  N0ZEP4 

1  v  *  l.l 

.ISP  PPZEPO 

1  '■  0  n 

JMP  NFXT4 

1  :  1  0 

N0ZEP4 

L  DR  •' '!•  it' D  •  •  V 

TLO  BYTE  OF  DWELL  TIME 

I  33  0 

STR  DVDNDI 

1 

I  NY 

1  Mu 

LDR  'fc'D'.Y 

•MID  BYTE  OF  DWELL  TIME 

1  ;f.i:i 

STR  DVDNDc' 

1  :t.  i'.i 

I  NY 

1 370 

LDR  *’ '!■  c'D  ‘  •  Y 

JHI  BYTE  OF  DWELL  TIME 

1  3  Ail 

STR  DVDND3 

i  ::;  -*ri 

LDR  TOOWL1 

•PUT  TOTAL  MISSION 

Mil  it 

STR  DIVISI 

•  DWELL  TIME  INTO 

Min 

LDR  TODWLc' 

T  THE  DIVISOR 

!4c0 

STR  D I V I Sc' 

M  30 

LDR  T0DWL3 

144  0 

STR  DIVIS3 

I4*.0 

JSP  PPINT 

; DWELL  TIME' TOTAL  MISSION  DWELL 

i  AO 

•RESULT  PPINT  IN  FP  FCIPMRT 

1470 

NEXT4 

LDR  SPACE 

112 


1430 

j:p 

ONTCHR  *  PR  I NT  ft  SPftCE 

'  -40 

TPPINT 

PERCENTftGE  OF  TOTftL  F IXftT 10NS=NUM  OF  FIXftTIONS/ 

.  00 

•  TOTftL 

mis: ION 

FIXFITIONS 

1*10 

TXft 

1  *.5-0 

CLC 

1  *.30 

FI  DC 

«3I 

1*40 

TftY 

1*50 

LDft 

ZEPOFX 

1560 

BNE 

N0ZEP5 

1 5  7  0 

JSP 

PRZEPO 

1 560 

JMP 

NEXT5 

1590 

N0ZEP5 

LDFl 

'tcTH  .  f  •  LOW  BYTE  OF  NUMBER  OF  FIXftTIONS 

1 6  0 0 

ST  ft 

DVDND1 

1 6 1  0 

I  NY 

1  680 

LDft 

•  i-c'D  ■  » Y  ’HIGH  BYTE  OF  NUMBER  OF  FIXftTIONS 

1  3  0 

STft 

DVDND8 

1 t4  0 

LDft 

ii  i'i 

lc.50 

ST  ft 

DVDND3 

1  ►  ii 

LDft 

TOTFXI  :PUT  THE  TOTftL  NUMBER  OF 

1  *:•  r  0 

:  tfi 

DIVI S 1  ;  FIXftTIONS  FOP  THE 

1380 

LDft 

T0TFX8  ?  MISSION  INTO 

1 t-90 

i  Tft 

DIVI .8  '  THE  DIVISOR 

I  TOO 

LDft 

TOTFy.  3 

ino 

:  Tft 

D I V I  3  3 

ir?o 

JSP 

PRINT  .'FIXftTIONS  TOTftL  MISSION  FIXftTION 

!  7  30 

r PRINT  RESULT  IN  FP  FQPMftT 

1740 

NEXT5 

PL  ft 

1  7f,o 

TftY 

*  RES  TORE  V  FROM  STftCK 

60 

RTS 

1  770 

? SUBROUTINE  TO 

PRINT  OUT  ft  ZERO  RESULT 

I  780 

PRZEPO 

TXft 

1  7 '4  0 

PHft 

?  3ft VE  X  REGISTER 

1  8  0  0 

LDft 

«14 

181  0 

S  Tft 

COUNT 

1  88  0 

LDX 

«  0  0 

1830 

LOOP 

LDft 

ZEROUT.X 

184  0 

JSP 

OUTCHP  ? PRINT  ft  CHftP 

1850 

I  NX 

1  r!  6  l.l 

DEC 

COUNT 

1870 

BNE 

LOOP 

1  880 

PL  ft 

1890 

TftX 

•  RE STORE  X 

1  9  0  0 

RTS 

1910 

.EN 

'  .  Module:  Output  Second  Table 


M.ORD 

OUTTC 

>  PR 

MM  t  o 

•  BP  13500 

mii0O 

.  o: 

•  •  ii  o 

TPRNS 

.BY  " TPftNS HI ONS  BETWEEN  TWO  INSTRUMENTS' 

1 1  04  0 

SOURCE 

.BY  'SOURCE' 

nn50 

BLRNK 

.  BY 

iimP  0 

UNDER 

.BY 

i  hi  7  0 

HERD1 

.BY  'NO  D6  01  00  03  04  05  06  07  08  09  10  ' 

111100 

HERD0 

.BY  11  10 

mi  r^O 

CDL 

. BY  GLBLDG01 00030405060708091 0! I 1013141516! 7181920 

m  I  OH 

i.  Dl.  1 

.BY  01000  30405F 

m  t  !  0 

TRBLE1 

.BE  It. n 00 

1 1 1  0  0 

TRBL  Ec‘ 

.  Dt  It.  10 it 

II  [  3  II 

TRBLE  3 

.  DF  It. 0n  n 

1 1 1  4  0 

TRBLE4 

.  DF  It .?Oii 

III?.  0 

OUT BYT 

.  DF  18..- FR  ? OUTPUT  h  BYTE 

ii  |  P 0 

OUTC  HP 

. DE  18h47  » OUTPUT  R  CHRRRCTER 

1 1 1 7  0 

CPLF 

.DF  18 34 D  ' C RPP I R6E  RETURN  RND  LINE  FEED 

II  1  00 

COUNT  I 

.  DS  1 

n  1 90 

COUNTS' 

.  BY  6 

ii,?  00 

BINDEC 

.DE  13961 

10 

TEMP 

.DS  1 

•  00 

9 

% 

ii,?  00 

« PPINT 

OUT  HERDER  FOP  THE  SECOND  TRBLE  OF  RESULTS 

n,-4  0 

OUTTC 

LDY  «O0 

ii.  50 

LDY  “35 

n.;PO 

JSP  CPLF 

n.-ro 

L  OOPC 

L  DR  TRRNS  t  Y 

ii,  ::3ii 

JiP  OUTCHP  f PRINT  HERDER 

n.  "-iO 

I  NY 

II  Mill 

DFY 

ii  :  1  0 

BNF  LOOPC 

ii  :0 0 

JSP  CPLF 

1 1  : 3  ii 

j:r  CPLF 

ii  :4  0 

LDY  if 00 

n  :50 

LD  i  :*c 

ii  :P0 

LOOPR 

LDR  BLRNK 

ii  :7fi 

JSP  OUTCHP  -PRINT  R  SPfiCE 

•  1  "00 

DEY 

ii  :90 

BNE  LOOF'R 

M4  00 

LOOPB 

LDR  SOURCE » X 

04 1 0 

JSP  OUTCHP  T PR I NT  'SOURCE' 

n4c’0 

I  NY 

H4  30 

DEC  COUNTS 

H440 

BNE  LOOPB 

0450 

JSP  CPLF 

tpo 

JSP  CPLF  ; SKIP  R  LINE 

,70 

L  DY  “ 0  0 

11480 

L  DY  «  0  0 

114 


imP^O 

LOOP1 

LDR  BLANK 

(• 

JSP  QUTCHP 

T PRINT  R  BLANK 

•  10 

JSP  OUT C HP 

: PRINT  R  FLANK 

nSJO 

LDA  HERD I -  X 

"5  30 

JSP  OUT CUP 

: PRINT  ONE  CHRP  OF  HERDER 

iiS4  0 

I  NX 

,1550 

LDR  HERD1 *  X 

i  (St.  0 

JSP  OUTCHP 

: PRINT  DNE  CHRP  DF  HERDER 

MS  70 

I  NX 

iiSyo 

LDR  HERD  1 • X 

ii590 

JSP  DHTCHP 

: PRINT  OUT  DNE  CHRP  DF  HERDER 

Hr.  IIH 

I  NX 

1 1  o 

I  NY 

Mr-,  c'  0 

CPX  “14 

1  lr-. 3  0 

pne  lddpi 

Mr.  40 

LDV  “ Mil 

i DEFINES  LOCATION  ON  COL 

Mr-,50 

L  DX  “ 7  0 

filrf.*;.  0 

JSP  CPLF 

1  lr.  7  0 

LDDPU 

LDR  UNDER 

•  lr:,!;:  0 

JSP  DiJTCHP 

S UNDERLINE  THE  HERDER 

m.  90 

D  EX 

m7M0 

PNE  LDDPU 

••no 

JiP  CPLF 

"7£0 

L  DX  “ 0 0 

m  7  30 

OUTLOl 

LDR  st  13 

M74  0 

STA  COUNT 1 

m  750 

JiP  CPLF 

5  GO  TO  NEXT  LINE 

ii760 

JiP  DOT PC 

; output  beginning;  of  row 

'70 

V'LOOPl 

JIP  VDIJTl 

? PRINT  DATA  FOR  AN  INST 

"7:30 

DEC  COUNT! 

"790 

BNE  VLDDP1 

118:00 

CPX  st'I.D9 

"8: 1  6 

EEC  NEXT£ 

'GO  TO  NEXT  TABLE 

11:3  c'  0 

TXR 

ny  30 

CLC 

H840 

RDC  “c'l 

?GD  TD  NEXT  INST  IN  TABLE 

ii:35  0 

TRX  ; CD  TD 

NEXT  INST 

1 1:36  0 

JMP  OUTLD1 

m:370 

NEXT£ 

LDX  st  00 

Ilf.'K  M 

OUTLO£ 

LDR  st  1? 

* 

"890 

STA  COUNT 1 

'REINITIALIZE  COUNT 1 

M'3  00 

JiP  CPLF 

’ GO  TO  NEXT  LINE 

M^I  0 

JiP  OUTER 

; PRINT  OUT  COLUMN  HERDER 

i  r-i£  o 

VLOOP£ 

JiP  VOUTc' 

? PR I NT  ROW  FOR  AN  INST 

m,j*  30 

DEC  COUNT 1 

ir<40 

ENE  VLDDPc' 

11*5  0 

CPX  tt*D* 

ic  *60 

EEC  NEXT? 

!G0  TO  NEXT  TABLE  IF  DONE  WITH 

"970 

TXR 

ii'*y  o 

CLC 

"■  *90 

RDC  ss£ I 

5G0  TO  NEXT  INST  IN  TABLE 

1  000 

TRX 

toio 

JMP  OUTLO£ 

i£0 

NEXT? 

LDX  st 00 

*  030 

0UTL03 

LDR  s:  1  ? 

115 


JiP  BINDEC  ’ CDNVEPT  NUMBER  TD  DECIMRL 

J-p  DOT BYT  5 PRINT  HI  BYTE  OF  DECIMRL  ND 

TYR 

j:p  outbyt  : print  lo  byte  of  decimrl  nd 

L  DR  BLRNK 

J'P  DUTC.HP  ? PRINT  R  BLRNK 

PLR 

TRX 

PLR 

TRY  ' RESTORE  INDEX  Y  FROM  STRCK 
I  NX 


Module:  Output  Third  Table 


>LORD 

OUTTD 

v  f  P 

•  ml  0 

.PR  4.3750 

•  •lie'  o 

.os 

it  ii  3  ii 

PLANK 

.  BY  • 

1 1 1 14  n 

UNDER 

.  PY  _ 

1 1 1  l*i  0 

HE  HOI 

.PY  NO  f 3 

14  15  If.  1?  18  18  80  8!  33  33  ' 

1 1  lit.  0 

HERD? 

.  PY  34  35 

im  1 7  0 

COL 

.BY  CL  PLDh 

0 1 03  0  3 04  05 06  0708091011181314151617181 98 0 

1 1 1 C;!  1.1 

CDL  1 

.  B  i  3 1 333  3 

8435E 

iiiim  n 

TAPLE1 

.  DE  16 000 

i '  1  0  i'i 

TAPLE8 

. DE  It! 00 

ii r  to 

TABLES-: 

. DE  1*300 

1 1 1  3  it 

TRDLE4 

.  DE  I  t. 3  0  0 

1 1 1 ;-!  o 

QUTBYT 

. DE  183FA 

5  OUTPUT  R  BYTE 

i'f  40 

OUTCHP 

.  DE  18A4  7 

•OUTPUT  R  CHRRRCTER 

1 1 T  5  0 

CPLF 

.DE  18  34  D 

? CRPP I R6E  RETURN  RND  LINE  FEED 

lift.  0 

COUNT! 

.HI  1 

iivro 

BINDEC 

.DE  139B1 

. 

1 1 1  s  o 

TEMP 

.  D :  1 

111  M(| 

• 

i  it  •  0  0 

:ppint 

OUT  HERDEP  FOP 

THE  SECOND  TRBLE  OF  RESULTS 

■10 

OUTTD 

j:p  CPLF 

.'.ell 

J'P  CPLF 

•  't  ’  5  0 

j:p  CPLF 

9  SKIP  R  LINE 

1', -40 

LD*  “Oil 

ii,:*.  o 

LDY  :s  0  0 

1 1,  6  o 

LOOP! 

L  DR  BLANK 

11,70 

j:p  OUTCHP 

•PRINT  R  BLRNK 

i :8  0 

J'P  OUTCHP 

•PRINT  R  BLRNK 

lit 'Mil 

LDR  HERD1 » > 

? 

ii  :  0  0 

JSP  OUTCHP 

•PRINT  ONE  CHRP  OF  HERDER 

n:  1  0 

I  NX 

ii.'c'O 

LDR  HE  fill  1  *  X 

M.:  30 

J’P  OUTCHP 

9  PR I NT  ONE  CHAR  OF  HERDER 

n  :40 

I  NX 

n.:50 

LDR  HEAD1 » '» 

ii  360 

J'P  OUTCHP 

•PRINT  OUT  ONE  CHRP  OF  HERDER 

ii'iTO 

I  NX 

0380 

I  NY 

0  :mo 

CPY  «14 

04  00 

PNE  LOOP! 

04  1  0 

L  DY  “  1 1 0 

? DEFINES  LOCATION  ON  COL 

H4c*0 

LDX  «70 

1*4  30 

J'P  CPLF 

H440 

LOOPU 

LDR  UNDER 

04*.  0 

JiP  OUTCHP 

! UNDERLINE  THE  HERDER 

’  't.0 

DE  X 

,ro 

BNE  LOOPU 

ti430 

JSR  i 

CRLF 

•  •490 

LDX 

::*0D 

00 

0UTL01 

LDR 

a!  3 

|  0 

STR 

COUNT  1 

OS«?0 

JSR 

CRLF 

OS  3  0 

JSR 

OUT  BG 

0S4  0 

VL0DR1 

JSR 

voun 

nSSO 

DEC 

COUNT! 

1 1*".*;.  0 

BNF 

VL  OOP 1 

IIS  70 

CPX 

“IE  6 

i  iS®  0 

BEC 

NEXT  5 

MS  *40 

txh 

1  IK  0  0 

CLC 

Mb!  0 

ADC 

«c‘  1 

iif.  so 

TRX 

TGO  TC 

mk30 

JMP 

0UTL01 

iik  40 

NEXT5 

L  DX 

«:tOD 

IIK.SO 

0UTLD8 

LDR 

si  13 

HKbO 

STR 

COUNT! 

Mf.ro 

JSR 

CRLF 

lib  30 

J  SR 

OUT  BG 

llf.ftl'l 

VL00R5 

JSR 

V0UT5 

1 1  7  o  it 

DEC 

COUNT! 

n71  0 

BNE 

VL0DP5 

11750 

C  PX 

SS-I.F6 

n730 

BED 

NEXT  3 

n74  0 

TXR 

ii  750 

CLC 

V.0 

RDC 

«51 

11*770 

T  AX 

ii  780 

JMP 

0UTL05 

0790 

NEXT  3 

LDX 

«i;  OD 

lift  00 

QUTL03 

LDR 

Si  1  3 

lift!  0 

STR 

COUNT! 

iiftZ  0 

JSR 

CRLF 

i  ift  3  0 

JSR 

OUTBG 

084  0 

VL00P3 

JSR 

V0UT3 

nftS  0 

DEC 

COUNT 1 

Oft6  0 

BNE 

VL00P3 

oft  70 

CPX 

sitE6 

oftftO 

BEC 

NEXT4 

oftftO 

TXR 

Oft  00 

CLC 

oft!  0 

RDC 

si5I 

IlftZO 

TRX 

oft  3  0 

JMP 

OUTL  03 

o‘»4  0 

NEXT4 

LDX 

sifOD 

OftS  0 

0UTL04 

LDR 

st  1  3 

nft60 

STR 

COUNT! 

oft  70 

JSR 

CRLF 

OftftO 

JSR 

OUTBG 

oftftO 

VL0QP4 

JSR 

V0UT4 

1  000 

DEC 

COUNT  1 

'10 

BNE 

VL  OOP 4 

.  150 

CPX 

:  S11.E6 

TGO  TO  NEXT  LINE 
; OUTPUT  BEGINNING  OF  ROW 
T PR I NT  DATR  FDR  RN  INST 


tGO  TO  NEXT  TRBLE 


T GO  TO  NEXT  INST  IN  TRBLE 
NEXT  INST 


TREINITIRLIZE  COUNT! 

*60  TO  NEXT  LINE 
'PRINT  OUT  COLUMN  HERDER 
'PRINT  ROW  FOP  RN  INST 


TGO  TO  NEXT  TRBLE  IF  DONE  WITH  THIS  ONE 


TGO  TO  NEXT  INST  IN  TRBLE 


T RE INITIALIZE  COUNT 1 
TGO  TO  NEXT  LINE 
T PRINT  OUT  COLUMN  HERDER 
T PR I NT  OUT  R  ROW  FOR  RN  INST 


TGO  TO  NEXT  TRBLE  IF  DONE  WITH  THIS  ONE 


TGO  TO  NEXT  INST  IN  TRBLE 


TREINI TIRL IZE  COUNT! 

TGO  TO  NEXT  LINE 
T PRINT  OUT  COLUMN  HERDER 
T PRINT  ROM  FOR  RN  INST 
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*- 


•40 

TXA 

.  ..'50 

CLC 

1  o 

flue  “8i 

•  i30  TO  NEXT  INST  IN  TABLE 

1  070 

TAX 

1  0:30 

JMP  0UTL04 

1  0*0 

NEXT5 

ft: 

t  l  00 

• 

* 

1110 

0UTB6 

LDfl  BLANK 

t  180 

HP  OUTCHP 

J F'P  I NT  fl  BLANK 

1  1  30 

HP  OUTCHP 

: PRINT  fl  BLANK 

1  !  4  0 

L  DA  L  OL  •  V 

{  ! 50 

JSP  QIJTCHP 

J PRINT  OUT  COLUMN  HEADER 

1  !60 

I  MV 

i  :  70 

L  Dfl  COL  *  Y 

1  1 :?  0 

.HP  QIJTCHP 

1  !  *0 

I  MY 

1.00 

LDfl  BLANK 

1.10 

jsp  QIJTCHP 

Kc'O 

ft: 

. 

1»’30 

1X40 

VOUT  1 

LDfl  TABLE  1 » X 

It. 50 

STfl  TEMP 

1X60 

TYfl 

1X70 

PHfl  SPOT  INDEX  Y  ON  STACK 

1 X3l'i 

TXA 

f  290 

PHfl 

1  : 0  0 

LDfl  TEMP 

10 

J:P  t:  IN  DEC 

I CONVERT  NUMBER  TO  DECIMAL 

1  3  c:  0 

JSP  QUTBYT 

1PPINT  HI  BYTE  OF  DECIMAL  NO 

1  330 

TYfl 

1  340 

JSP  DOT BYT 

•PRINT  LO  BYTE  OF  DECIMAL  NO 

1  3*5  0 

LDfl  BLANK 

1360 

JSP  QLITCHP 

i PRINT  fl  BLANK 

1370 

PLfl 

1  380 

TAX 

1380 

PLfl 

1400 

TflY  ? RESTORE  INDEX  Y  FROM  STACK 

1410 

I  NX 

1480 

PTS 

1  4 1-:  0 

4 

144  0 

V0UT8 

LDfl  TRBLE8.X 

1450 

STfl  TEMP 

1 460 

TYfl 

1470 

PHfl  'PUT  INDEX  Y  DN  STACK 

1480 

TXfl 

14*0 

PHfl 

1500 

LDfl  TEMP 

1510 

JSP  BINDEC 

; CONVERT  NUMBER  TO  DECIMAL 

1580 

JSP  QUTBYT 

f PRINT  HI  BYTE  OF  DECIMAL  NO 

1530 

TYfl 

1540 

JSP  OUT BYT 

? PRINT  LO  BYTE  OF  DECIMAL  NO 

1550 

LDfl  BLANK 

60 

JSP  OUTCHP 

•'PRINT  A  BLANK 

1570 

PLfl 
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1*180 

TAX 

*0 

PLR 

,  *00 

TRY 

J PE STORE 

INDEX  Y  FPDM  STACK 

1610 

I  NX 

I6£0 

PTi 

16  30 

• 

« 

1640 

V00T3 

LDR 

TABLES*  X 

1650 

STA 

TEMP 

1660 

TYR 

1670 

PHR 

J PUT  INDEX  Y  ON  STACK 

1  680 

TXA 

1 690 

PHA 

1  700 

LDR 

TEMP 

1  710 

JSP 

DIN DEC 

*  C  ONVEPT  NlJMBEP  TD  DEC  I MRL 

1  7  c'  0 

JSP 

□UT BYT 

J PP I NT  HI  BYTE  OF  DECIMAL 

NO 

1  7  3  0 

TYR 

1  74  0 

jsp 

OUT BYT 

J  PRINT  LD  BYTE  OF  DECIMAL 

NO 

1  7  “10 

LDR 

BLHNK 

1  76  0 

j:p 

01 J  T  r  HP 

J PP I NT  R  BLANK 

1  77i'i 

PLR 

1780 

TRX 

1  790 

PLR 

1  800 

TRY 

J RES TOPE 

INDEX  Y  FPDM  STACK 

1810 

I  NX 

1  8  c'  0 

PTS 

18  30 

m 

% 

1  84  0 

VDUT4 

LDR 

TABLE4*  X 

*  950 

'TR 

TEMP 

:6  0 

TYR 

1870 

PHR 

J PUT  INDEX  Y  ON  STACK 

1  88  0 

TXR 

18*0 

PHR 

1  *  i'i  i.i 

LDR 

TEMP 

1  *  I  0 

J 7  P 

BINDEC 

J CONVERT  NUMBER  TO  DECIMAL 

1  *8  0 

j :  p 

□UT BYT 

J PRINT  HI  BYTE  DF  DECIMAL 

NO 

1*30 

TYR 

1*4  0 

JSP 

□IJT  BYT 

JPPINT  LQ  BYTE  OF  DECIMAL 

ND 

1**10 

LDR 

BLANK 

1 '  *6  0 

JSP 

□LlTCHP 

JPPINT  R  BLANK 

1*70 

PLR 

1*80 

TRX 

1  *90 

PLR 

£H00 

TRY 

J PE  7  TOPE  INDEX  Y  FPDM  STACK 

J  Hi  0 

I  NX 

i:  i»c'0 

pt: 

t  n30 

.EN 
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24.  Module:  Convert  From  Binary  to  Decimal  -  called  by  Output 
Second  Table  and  Output  Third  Table  modules. 


L  HAD 

BINDEC 

FP 
i  m  1  0 

.  BA 

1 59  BO 

inic'O 

.05 

nil  50 

?  THIS  ROUTINE 

CONVERTS  H  ONE  BYTE  HEY  NUMBER  TO 

i  iu4  it 

:a  two  ?■' 

r'TE  DEC 

I MAL  numbep.  the  hey  number  is  in  the 

n  1 15  i'i 

JACC.  THE  HI  B 

YTE  OF  THE  DECIMAL  NUMBER  IS  IN  THE 

in  it .i'i 

?  ACC  AND 

THE  LOl.l  BYTE  IN  PEG I STEP  Y 

0070 

TEMP 

.  DS 

1  : TEMPORARY  STORAGE 

niiyi'i 

BINDEC 

LDY 

«*FF  ’ START  C'UOTIENT  AT  -1 

01190 

SEC 

JSET  CARRY  FOP  INITIAL  SUBTRACTION 

ii  ]  00 

D100LP 

I  NY 

•  ADD  1  TO  QUOTIENT 

il  10 

S  BC 

nlOO  ' SUBTRACT  100 

n  120 

DCS 

DIO OL P  : BRANCH  IF  A  IS  STILL  LARGER 

1 1 1  5  0 

ADC 

1  o i'i  ' ADD  THE  LAST  100  BACK 

o|  40 

THY 

?  SAVE  REMAINDER 

0150 

TYH 

0  1  £  0 

PHH 

.'SAVE  100'S  DIGIT  ON  THE  STACK 

II  t  70 

TYH 

f GET  REMAINDER 

"19  0 

?  CALCULATE  10 

S  AND  IS  DIGITS.  DIVIDE  REMAINDER 

Ilf  90 

’OF  THE 

100'S  DIGIT  BY  10. 

0200 

?Y  *  10 

i  DIGIT 

10 

Jft  »  15 

DIGIT 

c20 

LDY 

s:*.FF  : START  QUOTIENT  AT  -1 

",-•50 

SEC 

*  SET  CARRY  FOP  INITIAL  SUBTRACTION 

024  0 

OlOLP 

I  NY 

'ADD  1  TO  QUOTIENT 

0250 

SBC 

« 1  0 

02*5.0 

BC  S 

D10LP  f BRANCH  IF  A  IS  STILL  LARGER 

0270 

ADC 

elO  » ADD  THE  LAST  10  BACK 

"2  SO 

* COMBINE 

rs  AND  10  S  DIGITS 

"290 

STH 

TEMP 

0  5  0  0 

TYH 

"51  0 

ASL 

A 

0  52  0 

HSL 

A 

0  5  5  0 

HSL 

A 

0  540 

HSL 

A  »  MOVE  10'S  TO  HIGH  NIBBLE  OF 

U  550 

OPH 

TEMP  ?0P  IN  THE  IS  DIGIT 

0  5*>  0 

? RE TURN 

UITH  Y 

=  LOM  BYTE  A  =  HIGH  BYTE 

0  570 

TRY 

! PLACE  IN  REG  Y 

li  5 SO 

PL  A 

I GET  100  5  DIGIT 

Ii  590 

PTS 

0400 

.FN 

THAN  100 


THAN  10 
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2S.  Nodule:  Print  Results. 


M  URD  FINRL 
>PP 


I'lll  I  0 

.  E:R 

tS:9F0 

mtcO 

.OS 

i  mi  i'i 

J  THIS 

ROUTINE 

WILL  PRINT  OUT  THE  FINRL  THREE  TRELES 

1 1 1 14  i.i 

OUT  TC 

.  HE 

1.  I 

J  FIRST 

TRELE  THRT  PRINTS  OUT  TRRNSITIONS 

1 1 1  IS  0 

J EE TWEEN 

in: tpument; 

H  Ur.  0 

OUT  TP 

.  DE 

T.;-:7E:7 

J SECOND 

TRELE  THRT  PRINTS  OUT  TRRNSITIONS 

1 1  0  7  0 

"  EETWFEN 

instruments 

1 1  rift  i.i 

TOVRL 

.  HE 

’!•»-■  7  OF- 

JR DP  UP 

TOTRL  MISIION  FIKRTIDNS  RND 

mr^ij 

JTOTRL 

MI 

S  '  ION 

DWE  L  L 

TIME 

u(0  0 

OUTPT1 

.  HE 

r> 

J PRINT 

OUT  HERDER  FOP  FIRST  TRELE 

ii!  10 

OUTTE 

.  DF 

J PRINT 

OUT  EDDY  OF  FIRST  TRELE 

n  f  SO 

FINRL 

JSR 

TOVRL 

•  i !  1-:  0 

j:r 

OUTPTI 

ii  140 

j:p 

OUTTE 

II  |  r.  II 

JSP 

OUTTC 

ii  1  70 

JSP 

OUT  TP 

1 1 1 8  0 

ft: 

ii  (80 

.EH 
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APPENDIX  E 


Module  Validation  Data 


This  appendix  shows  the  data  used  to  test  each  module  or 
portion  of  a  module.  A  "J"  in  front  of  a  number  means  that 
number  is  in  base  16. 

1.  Division  subroutine  for  Add  Timing 


Table  5 

Division  Validation  Data 


Dividend 

Divisor 

60000 

1000 

60000 

50 

50000 

300 

60000 

90 

QUfl.tififll,  Remainder 


60 

0 

1200 

0 

16 

200 

666 

60 
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2.  Module  Add  Timing 


Table  6 

Add  Timing  Validation  Data 

Number  of  Number  of  Time  Intervals  Num  of  Intervals 


Sample 

jjgx 

idgg- 

imal 

Decimal 

Si  ns£  L&S-fc 

01 

00 

00 

11 

17 

02 

00 

00 

23 

35 

18 

03 

00 

00 

35 

53 

18 

04 

00 

00 

48 

72 

19 

05 

00 

00 

5A 

90 

18 

06 

00 

00 

6C 

108 

18 

07 

00 

00 

7E 

126 

18 

08 

00 

00 

91 

145 

19 

09 

00 

00 

A3 

163 

18 

$0A 

00 

00 

B5 

181 

18 

$0B 

00 

00 

C6 

198 

17 

$0C 

00 

00 

DA 

218 

20 

$0D 

00 

00 

EC 

236 

18 

$0E 

00 

00 

FE 

254 

18 

$0F 

00 

01 

OF 

271 

17 

$10 

00 

01 

21 

289 

18 

$11 

00 

01 

33 

307 

18 

$12 

00 

01 

46 

326 

19 

$13 

00 

01 

58 

344 

18 

$14 

00 

01 

6A 

362 

18 
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Table  7 


Determine 

Instrument  Number 

Validation  Data 

X  eye 
lixfiSLti&n 

Y  eye 
direction 

Instrument 

Number 

2 

3 

01 

5 

3 

No  instrument 

6 

3 

No  instrument 

-2 

3 

02 

-2 

6 

No  instrument 

16383 

3 

No  instrument 

1 

3 

No  instrument 

4 

3 

01 

-1 

3 

02 

-4 

3 

No  instrument 

0 

0 

No  instrument 

3 

2 

No  instrument 

3 

5 

01 
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4.  Module  Compare  Data  Samples 


Table  8 


Compare  Data  Samples  Validation  Data 


Infill  fiaia  Samslaa 


Output 


Instrument 

Number 


Data  Sample 


Instrument  Total  Time  On 
Number  InsUhexideclmal) 


1st  test: 


01 

00 

00 

11 

00 

00 

00 

11 

01 

00 

00 

22 

01 

00 

00 

33 

02 

00 

00 

44 

01 

00 

00 

33 

02 

00 

00 

55 

03 

00 

00 

66 

02 

00 

00 

11 

01 

00 

00 

77 

01 

00 

00 

88 

03 

00 

00 

99 

01 

00 

00 

22 

2nd  test: 

$10 

00 

00 

14 

00 

00 

00 

14 

05 

00 

01 

11 

10 

00 

00 

FD 

05 

00 

01 

A1 

03 

01 

CF 

00 

05 

01 

CD 

EF 

03 

02 

00 

00 

03 

02 

11 

01 

$AA 

02 

11 

A1 

03 

00 

42 

A1 

$AA 

02 

11 

CO 

01 

OC 

DO 

54 

AA 

OA 

BE 

BC 

02 

OC 

DO 

64 

01 

00 

00 

10 
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5.  Module  Create  Table 


Table  9 

Create  Table  Validation  Data 


Inst 

Total  Time  On 

Last  Instrument 

Jiumbsr 

Inst(Hexidecimal) 

IPebarminad  bx  Sraaia  labial 

Test  1  : 

01 

00 

00 

31 

00 

01 

00 

00 

33 

00 

00 

00 

00 

B6 

01 

00 

00 

00 

B8 

01 

10 

00 

00 

FC 

00 

13 

00 

11 

00 

10 

20 

00 

00 

CD 

13 

10 

00 

01 

00 

20 

Test  2: 

11 

00 

00 

FF 

00 

11 

00 

01 

11 

ii 

11 

00 

00 

20 

ii 

00 

00 

00 

CC 

ii 

22 

00 

20 

14 

00 

23 

00 

20 

14 

22 

24 

00 

30 

14 

23 

19 

00 

32 

00 

24 

12 

00 

AO 

00 

19 

Test  3: 

08 

00 

8C 

00 

00 

03 

00 

01 

00 

08 

04 

00 

04 

00 

03 

02 

00 

02 

00 

04 

05 

00 

05 

01 

02 

06 

00 

00 

E6 

05 

07 

00 

00 

F7 

06 

09 

01 

01 

11 

07 

14 

01 

01 

00 

09 
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Table  10 


Create  Table  Validation  Results 
Consecutive 

Starting  Mem  contents  (if  location  between 

Mem  6000  and  63FF  is  not  listed, 

Lfl£iaiiGH  It  is  zero) 


Test  1 : 

6000 

01 

00 

6018 

00 

00 

6020 

00 

00 

6038 

00 

00 

6040 

00 

01 

6060 

B8 

00 

6080 

33 

00 

61A8 

00 

00 

61  B8 

00 

00 

6  ICO 

00 

00 

6 1 C8 

00 

02 

6228 

00 

00 

6238 

00 

00 

6340 

00 

01 

Test  2: 

6008 

00 

00 

6018 

00 

00 

6048 

00 

00 

6060 

CC 

00 

61C8 

00 

00 

6 1D0 

00 

00 

61E8 

10 

02 

6210 

00 

00 

6218 

00 

00 

6318 

01 

00 

6360 

00 

00 

6380 

00 

00 

6398 

00 

00 

63A0 

00 

00 

63C0 

00 

01 

63C8 

00 

01 

00 

00 

00 

00 

00 

00 

00 

00 

31 

00 

00 

01 

00 

01 

00 

00 

00 

00 

00 

00 

00 

00 

B6 

00 

00 

00 

00 

01 

00 

00 

00 

01 

00 

00 

01 

00 

00 

01 

00 

00 

00 

00 

01 

00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

00 

00 

00 

00 

00 

FC 

01 

00 

00 

00 

00 

00 

00 

00 

00 

01 

00 

00 

00 

00 

00 

00 

00 

CD 

11 

00 

00 

00 

00 

00 

00 

00 

01 

00 

00 

00 

00 

00 

00 

20 

00 

00 

01 

00 

00 

00 

00 

00 

01 

00 

01 

00 

00 

00 

00 

00 

00 

01 

00 

00 

00 

00 

00 

00 

00 

00 

01 

00 

02 

00 

00 

00 

00 

00 

01 

00 

00 

00 

00 

00 

00 

00 

AO 

00 

01 

00 

00 

00 

32 

00 

01 

00 

00 

00 

00 

01 

00 

14 

20 

00 

01 

00 

00 

00 

00 

00 

00 

01 

00 

00 

00 

14 

20 

00 

01 

00 

00 

00 

00 

14 

30 

00 

00 

00 

00 

00 

00 
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Test  3 


6088 

00 

00 

00 

00 

01 

00 

00 

00 

60A0 

00 

00 

00 

00 

00 

02 

00 

01 

60B0 

00 

00 

01 

00 

00 

00 

00 

00 

60C0 

00 

00 

00 

00 

00 

00 

00 

01 

60C8 

00 

01 

00 

00 

00 

00 

00 

01 

60E8 

00 

04 

00 

01 

00 

00 

00 

00 

6100 

00 

00 

01 

00 

00 

00 

00 

00 

6118 

00 

00 

00 

00 

01 

05 

00 

01 

6120 

00 

00 

00 

00 

00 

00 

00 

01 

6138 

00 

00 

00 

00 

00 

00 

E6 

00 

6140 

00 

01 

00 

00 

00 

00 

00 

00 

6148 

00 

00 

01 

00 

00 

00 

00 

00 

6160 

F7 

00 

00 

01 

00 

00 

01 

00 

6180 

00 

00 

00 

8C 

00 

01 

00 

00 

6188 

00 

00 

00 

00 

00 

00 

00 

01 

61  AO 

00 

00 

00 

00 

11 

01 

01 

01 

6248 

00 

00 

00 

00 

00 

01 

00 

00 

6260 

00 

01 

01 

01 

00 

00 

00 

00 

131 


«- 


Appendix  F 

Simulaind  Qcuiometer  input  Inc  Subsystem  lalidatinn 


Track/Out-of 

X  Eye 

Y  Eye 

Track  Status 

Direction 

Direction 

(hex) 

(hex) 

Test  1: 

01 

00 

3C 

01 

2C 

01 

'  00 

3C 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

04 

01 

2C 

01 

00 

00 

01 

90 

01 

00 

00 

01 

90 

01 

00 

00 

01 

90 

01 

FF 

9C 

01 

3C 

01 

FF 

9C 

00 

3C 

01 

FF 

9C 

00 

3C 

01 

FF 

9C 

00 

3C 

01 

FF 

9C 

00 

3C 

01 

FF 

9C 

00 

3C 

01 

FF 

9C 

00 

3C 

00 

FF 

9C 

00 

3C 

00 

FF 

9C 

00 

3C 

00 

FF 

9C 

00 

3C 

01 

FF 

9C 

00 

64 

01 

FF 

9C 

00 

64 

01 

FF 

9C 

00 

64 

01 

FF 

9C 

00 

64 

01 

FE 

D4 

00 

C8 

01 

FE 

D4 

00 

C8 

01 

FE 

D4 

00 

C8 

01 

FE 

D4 

01 

2C 

01 

FE 

D4 

00 

2C 

01 

FE 

D4 

01 

2C 

01 

FE 

D4 

01 

2C 

01 

FE 

D4 

01 

2C 

01 

FE 

D4 

01 

2C 

01 

00 

00 

01 

90 

01 

00 

00 

01 

90 

01 

00 

00 

01 

90 

01 

00 

00 

01 

90 
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APPENDIX  G 


Final  Data  Tables  and  Outputs 

1.  The  following  are  the  results  of  Test  1  inputs  of  Appendix  F. 

a.  Final  Data  Table  in  memory  locations  6000  (hex)  to 
6400  (hex) . 

.  8  000*64  00 

6ii00  01  00  00  00  00  00  00  00,  01 

£.008  00  00  00  00  00  00  00  00,  01 
£.  o  |  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 ,  0 1 

£.o!8  00  00  00  00  11  00  00  01,13 
6 "80  00  00  00  00  00  00  00  01*14 
£.1188  00  00  00  00  00  00  00  00*  14 
6 1 •  0  00  00  00  00  00  00  00  00*  14 
£.ii‘:8  00  00  00  00  00  00  3?  00*46 
£.n4  0  00  01  00  00  00  00  00  00*  4C 
£.m48  00  00  00  00  00  00  00  00*40 
£.ii*50  00  00  00  00  00  00  00  00*40 
£.nK,8  00  00  00  00  00  00  00  00*40 
£,u£.0  00  00  00  00  00  00  01  00*40 
£.ii £.8  00  00  00  00  00  00  00  00*40 
£."70  00  00  00  00  00  00  00  00*40 
£."78  00  00  00  00  00  00  00  00*40 
::0  00  00  90  00  00  01  00  00*  0E 

£..i88  00  00  00  00  00  00  00  00*  DE 

8"’*0  00  00  00  00  00  00  00  00*  DE 

£.1  r*8  00  00  00  00  00  00  00  00*  E'E 

£."80  00  00  00  00  00  00  00  00*  DE 

£.1188  00  00  00  00  00  00  01  00*  DF 

£.116  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  *  DF 

£."68  00  00  00  00  00  00  00  00*  DF 
£."C0  00  00  00  00  00  00  £E  00*  4D 
£."C8  00  01  00  00  00  00  00  00*  4E 
8 "DO  00  01  00  00  00  00  00  00* 4F 
£,"D8  00  00  00  00  00  00  00  00*  4F 
6 ME 0  00  00  00  00  00  00  00  00* 4F 
£,"E8  39  00  00  01  00  00  00  00*89 
£,  1  if-  0  00  00  00  00  00  00  00  00*89 
6"F8  00  00  00  00  00  00  00  00*89 
81  1 1 0  00  00  00  00  00  01  00  00*88 

£.  I  "8  00  00  00  00  00  00  00  00*88 
8110  00  00  00  00  00  00  00  00*88 
8118  00  01  00  00  CD  00  00  08*58 
81,;:0  00  00  00  00  00  00  00  00*58 
8 1  ,>8  00  00  00  00  00  00  00  00*58 
81 iO  00  00  00  00  00  00  00  00*58 
8188  00  00  00  00  00  00  00  00*58 
8140  00  00  00  00  00  00  00  00*58 
8*48  00  00  00  00  00  00  00  00*58 
t  .0  00  00  00  00  00  00  00  00*58 
8158  00  00  00  00  00  00  00  00*58 
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61*0  00  00  00  00 

r  *68  00  00  00  00 

..  '0  00  00  00  00 

61 '8  00  00  00  00 

6180  00  00  00  00 

6188  00  00  00  00 
6180  00  00  00  00 
61*8  00  00  00  00 
6180  00  00  00  00 
6168  00  00  00  00 
6  ISO  00  00  00  00 
6158  00  00  00  00 
6160  00  00  00  00 
6168  00  00  00  00 
6180  00  00  00  00 
6188  00  00  00  00 
6 1  IT  0  00  00  00  00 
611:8  00  00  00  00 
611*0  00  00  00  00 
61lr8  00  00  00  00 

6i. 00  00  00  00  00 

6ii' 08  00  00  00  00 

6810  00  00  00  00 
6. ‘18  00  00  00  00 
6880  00  00  00  00 
6888  00  00  00  00 
6.  ;:0  00  00  00  00 
68  38  00  00  00  00 
40  00  00  00  00 
r.i.48  00  00  00  00 
68*50  00  00  00  00 
68*58  00  00  00  00 
6860  00  00  00  00 
6868  00  00  00  00 
6870  00  00  00  00 
6878  00  00  00  00 
6880  00  00  00  00 
6888  00  00  00  00 
6."*0  00  00  00  00 
6888  00  00  00  00 
6>:80  00  00  00  00 
6888  00  00  00  00 
6.  80  00  00  00  00 
68B8  00  00  00  00 
686 0  00  00  00  00 
68C8  00  00  00  00 
68 DO  00  00  00  00 
68D8  00  00  00  00 
68E0  00  00  00  00 
68E8  00  00  00  00 
68F 0  00  00  00  00 
68F8  00  00  00  00 
6  500  00  00  00  00 
6  :08  00  00  00  00 
10  00  00  00  00 


00  00  00  00  >5?: 


00 

00 

00 

00«  58 

00 

00 

00 

00*  58 

00 

00 

00 

00*  58 

00 

00 

00 

00*58 

00 

00 

00 

00*58 

0  0 

00 

00 

00*  58 

00 

00 

0  0 

0  0  *  58 

00 

00 

0  0 

00*  58 

00 

00 

0  0 

00*  58 

00 

00 

0 

00*  58 

0  0 

0  0 

o  o 

0  0  •  58 

0  0 

00 

0  0 

0  0 « 58 

00 

0  0 

0  0 

00*  58 

0  0 

0  0 

0  0 

0  0  *  58 

0  0 

00 

oo 

0  0  *  58 

00 

00 

0  0 

00*  58 

00 

0  0 

0  0 

0  0  *  58 

00 

0  0 

00 

0  0  *  58 

00 

0  o 

0  0 

00*  58 

00 

0  0 

00 

00*  58 

0  0 

0  0 

o  o 

0  0  *  58 

00 

0  0 

0  0 

0  0  *  58 

0  0 

0  0 

0  0 

00*  58 

00 

0  0 

0  0 

0  0  *  58 

00 

0  0 

0  0 

0  0  *  58 

00 

0  0 

00 

0  0  *  58 

00 

0  0 

0  0 

0  0  *  58 

00 

00 

00 

00*58 

00 

00 

00 

00*  58 

00 

00 

00 

0  0  *  58 

00 

00 

0  0 

00*  58 

00 

00 

00 

00*58 

00 

0  0 

0  o 

0  0  *  58 

00 

00 

00 

0  0  *  58 

00 

0  0 

0  0 

00*  58 

00 

00 

00 

00*  58 

00 

00 

0  o 

00*  58 

00 

00 

00 

0  0  *  58 

00 

00 

00 

0  0  *  58 

00 

00 

00 

00*  58 

00 

00 

0  0 

00*  58 

00 

00 

0  0 

00*  58 

00 

00 

00 

00*58 

00 

00 

00 

0  u  *  58 

00 

00 

00 

00*58 

00 

00 

00 

0  0  *  58 

00 

00 

00 

00*  58 

00 

00 

0  0 

0  0  •  58 

00 

00 

00 

00*  58 

00 

00 

00 

00*  58 

00 

00 

00 

00*58 

00 

00 

00 

00*58 

00 

00 

00 

00*58 

00 

00 

00 

00*58 

b 

:18 

00 

00 

00 

00 

00 

00 

00 

00'  58 

b 

‘0 

00 

00 

00 

00 

00 

00 

00 

00*  58 

b 

J  8 

00 

00 

00 

00 

00 

00 

00 

00»  58 

6 

:  3  0 

00 

00 

00 

00 

00 

00 

00 

00*58 

b 

.:  38 

00 

00 

00 

00 

00 

00 

00 

00*58 

340 

00 

00 

00 

00 

00 

0  0 

00 

00*58 

6 

348 

00 

00 

00 

00 

00 

00 

00 

00*58 

6 

350 

00 

00 

00 

00 

00 

00 

oo 

00*  58 

6 

:58 

00 

00 

00 

00 

00 

00 

00 

00*  58 

6 

JbO 

00 

00 

00 

00 

00 

0  0 

0  o 

00*  58 

b 

:b8 

00 

00 

00 

0  o 

oo 

0  0 

0  0 

00*  58 

6 

:70 

00 

00 

00 

0  o 

00 

00 

0  0 

00*  58 

6 

:78 

00 

00 

00 

00 

00 

00 

oo 

00*  58 

6 

380 

00 

00 

00 

0  0 

00 

00 

0  0 

00*  58 

b 

:88 

00 

00 

00 

00 

00 

00 

0  o 

0  0  *  58 

b 

480 

00 

00 

00 

00 

00 

0  0 

00 

00*  58 

6 

:-*8 

00 

00 

00 

00 

00 

00 

0  0 

0  0  *  58 

(j 

:H0 

00 

00 

00 

00 

00 

00 

00 

00*  58 

6 

:88 

00 

00 

00 

00 

0  0 

0  0 

oo 

0  0  <  58 

b 

:J30 

00 

00 

00 

00 

0  0 

0  0 

0  0 

0  0  *  58 

b 

:&8 

00 

00 

00 

00 

0  0 

0  0 

0  0 

00*  58 

b 

:•  0 

00 

00 

00 

00 

00 

0  0 

0  0 

00*  58 

b 

8 

00 

00 

00 

00 

00 

01 

0  0 

0 1  *  58 

b 

3H0 

00 

00 

00 

00 

0  0 

0  0 

00 

00*  58 

b 

:H8 

00 

00 

00 

■  0  0 

0  0 

0  0 

0  0 

0  0  *  58 

b 

:ro 

00 

00 

00 

00 

00 

00 

0  0 

0  0  *  58 

b 

•:f8 

FB 

00 

00 

oa 

0  0 

00 

0  0 

00*  57 

b 

:»•  0 

00 

00 

00 

00 

0  0 

00 

00 

00*  57 

•  i-I 

00 

00 

00 

00 

0  0 

0  o 

o  o 

0  0  *57 

m 


b.  Output  of  first  table 


MIN  FINAL 

TIITAL  NUM6ER  OF  FIXATION:  IN  THF  DATA  MISSION*  +0. 7001 953E+01 
TOTAL  DWELL  TIME  IN  THE  DATA  MISSION*  +0. 7650545E+03 


IN  T  TOTAL  NUM6ER  TOTAL  DWELL  MEAN  DWELL  PROPORTION  OF  PROPORTION  OF 
MUM  OF  FIXATIONS  TIME  TIME  TOTAL  TIME  TOTAL  FIXATION 


GIIT 
61  UK 
DAGN 
'll 
n,  ■ 
i  i 

ii*» 

n,r, 

III;. 

II.' 
H;:: 
iV* 
l  0 

l 

i? 

i  3 
14 
If. 

t 

• 

4  I 

I A 

19 

XO 

XI 


X4 


+0. I 9455 I EE +01 
+0. 1 OOOOOOE+OI 
+0. OOOOOOOE+OO 
+0.1 OOOOOOE+OI 

♦  0 .  0 0 0  0  0  0  OE + 0  0 
+0. 1 OOOOOOE+OI 
+0. 1 OOOOOOE+OI 
+  0 .  E  0  0  0  0  0  OE + 0 1 
+0. 0000000E+00 
♦0. 0O00000E+00 
+0. 0000000E+00 
+  0 .  0  0  0  0  0  0  OE  +  0  0 

♦  0 .  0  0  0  0  0  0  OE  +  0  0 

♦o. ooonoooE+oo 

♦0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+  0 .  0  0  0  0  0  0  OE + 0  0 
+  0.  0  0  0  0  0  0  OE  +  0  0 
+0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
+  0 .  0  0  0  0  0  0  OE + 0  0 
+  0 .  0  0  0  0  0  0  OE  +  0  0 

♦  0 .  0  0  0  0 0  0  OE  +  0  0 

♦  o .  0  0  0  0  0  0  OE  ♦  o  o 
+  0 .  E  0  0  0  0  0  OE  ♦  0 1 


+0. 1 7359 SEE + OS 
+  0 .550  0  0  0 1 E+ OE 
♦0. OOOOOOOE+OO 
+0. 1440000E+03 
+  0 . n 0 n 0 0 0 0E+  0  0 
+0. 11 00000E+03 
+  0 . 56 99999F + OE 
+  0 . E 0E9999E + 03 
+0. OOOOOOOE+OO 
+  0 .  0  0  0  0  0  0  OE  +  0  0 
+  0 .  0  0  0  0  0  0  OE  +  0  0 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+  0.  iiiiOOOOiiE  +  OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. 00 000 OOF +00 
+0. OOOOOOOE+OO 
+  0 .  0  0  0  0  0  0  OE  +  0  0 

♦  0 .  0  0  0  0  0  0  OE  ♦  o  o 
+  0 .  0 0  0  0  0  0  OE  +  00 
+  0 .  0  0  0  0  0  0  OE  +  0  0 
+  0 .  0  0  0  0  0  0  OE  ♦  0  0 
+  0 .  0  0  0  0  0  0  OE  +  0  0 

♦  0 .  0  0  0  0  0  0  OE  +  0  0 
+  0 .  0  0  0  0  0  0  OE  +  0  0 

♦  0 .  0  0  0  0  0  0  OE  ♦  0  0 
+  0.  EM  0000E  +  03: 


+  0.1 735938E+  OE 
+0. 55X1876E+0E 
+0. OOOOOOOE+OO 
+0. 1 44X500E+03 
+  0 .  0  0  0  0  0 0  0E+  0  0 
+  0. 1 1 03X8IE+03 
+  0 . 5764  064E+ OS 
+0. 1 019140E+03 
+0. OOOOOOOE+OO 

♦  0 .  0  0  0  0  0  0  OE + 0  0 

♦  0 .  0  0  0  0  0  0  0E+  0  0 
+  0.0  0  0  0  0  0  0E+  0  0 
+  0 .  0  0  0  0  0  0  OE + 0  0 
♦0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+  0 .  0  0 0  0  0  0  OE + 0  0 
+0. OOOOOOOE+OO 
+  0 .  0  0  0  0  0  0  OE + 0  0 
+  0 .  0  0  0  0  0  0  0E+  0  0 
+  0 ,  0  0  0  0  0  0  OE  +  0  0 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 

♦  0 .  0  0  0  0  0  0  OE  +  0  0 
+  0 .  0  0  0  0  0  0  OE + 0  0 
+  0 .  0 0  0  0  0  0  OE + 0  0 
+0. 1X56757E+03 


+0. SX69I99E-01  +0. E14E857E+00 
+0. 7S4469E-01  +0. 14S857IE+00 
♦0. OOOOOOOE+OO  +0. OOOOOOOE+OO 
+0. 18856S1E+00  +0. 14E8571E+00 
+0. OOOOOOOE+OO  +0. OOOOOOOE+OO 
+0. 1447304E+00  +0. 14E8571E+00 
+0.748366E-01  +0. 14E8571E+00 


+0.E656454E+00 
♦0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 

♦  0 .  0  0  0  0  0  0  OE  ♦  0  0 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+  0 .  0  0  0  0  0  0  OE  +  0  0 
+  0 .  0  0  0  0  0  0  OE  ♦  0  0 

♦  0.  0  0  0  0  0  0  0E+ 0  0 

♦  0 .  0  0  0  0  0  0  OE +00 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 

♦  0 .  0  0  0  0  0  0  0 E  ♦  0  0 
+  0 .  0  0  0  0  0 0 OE  ♦  0  0 
+0. 3E8E884E+00 


+0.S85714SE+00 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
♦0. 0000000E+ 00 
+0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
+0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. OOOOOOOE+OO 
♦0. E85714EE+00 
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c.  Output  of  second  table 


Tf’ftNS  I TIONS  BETWEEN  TWO  INi TPUMENTS 


'□UPC  E 


NO 

0  G 

01 

OS 

0  3 

04 

Of. 

OS 

u » 

08 

09 

10 

11 

18 

GL 

0001 

0  0  0  0 

0  0  0  0 

0  0  0  0 

0  0  0  0 

0  0  0  0 

0  0  0  0 

oooo 

oooo 

0  0  0  0 

oooo 

0  0  0  0 

oooo 

BL 

0  0  0  0 

oooo 

0  0  ii  0 

ii  0  0  0 

0  0  0 1 j 

0  0  0 1 

oooo 

oooo 

oooo 

0  0 1 j  i j 

0  0  0  0 

oooo 

oooo 

0000 

0  0  0  0 

0  0  ii  0 

Ci 0  ii ij 

Ij  1  j  Ij  Ij 

1  j  1  j  Ij  Ij 

0000 

0  0  0  0 

0  0 1 j  0 

oooo 

oooo 

0  0  0  0 

oooo 

m 

0001 

oooo 

oooo 

0  0  0  0 

0  0 1  j  i  j 

oooo 

0000 

oooo 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

Me' 

0  0  0  0 

oooo 

0  0  0  0 

0  0  0  0 

0  0  0  0 

0 1  j  0  0 

0  0 1 j  o 

oooo 

0  0  0  0 

oooo 

oooo 

0  0  0  0 

oooo 

ii  3 

0000 

oooo 

oooo 

0  0  0  0 

Ij  Ij  Ij  1 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

0  0  0  0 

oooo 

n4 

0  0  0  0 

0  0  0  0 

0  0  0  0 

oooo 

0  ii  0  0 

0  0  0 1 

0  0 1 j  0 

oooo 

oooo 

0  0  0  0 

0  0  0  0 

oooo 

oooo 

nf. 

ij  it  00 

oooo 

0  0  ii  0 

oooo 

oooo 

0  0  0 1 

0000 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

nG 

o  o  o  o 

oooo 

0  0  0  0 

1  j  II  ll  Ij 

0  0  0  0 

0  0  0  0 

oooo 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

a  r 

0000 

oooo 

oooo 

oooo 

OOOO 

oooo 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

ii:3 

0000 

oooo 

0  0  0  0 

oooo 

0 1  j  0  0 

oooo 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

ir=* 

0  0 II 0 

0  0  0  0 

0  0  0  0 

0  0  0 1 j 

0  0  0  0 

0  0  0  0 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

0  0  0  0 

1  0 

0  0  o  0 

00  00 

0  0  Ci  ii 

II II II 1  j 

oooo 

oooo 

0  0  0  0 

00  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

1  1 

oooo 

0  0  0  0 

o  o  o  o 

0  0  0 1 j 

0  0  0  0 

0  0  0  0 

oooo 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

IS 

0000 

oooo 

0  0  Ci  0 

0  0  0  0 

0  Ci  0  0 

0  0  0  0 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

1  3 

0  0  0  0 

oooo 

0  0  0  0 

0  0  0 1 j 

0  0  0  0 
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2.  The  following  are  the  results  of  Test  2  inputs  of  Appendix  F. 

a.  Final  Data  Table  in  memory  locations  6000  (hex)  to  6400  (hex) 
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b.  Output  of  first  table 
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